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Condicionales 


A conocemos la forma de 
establecer, dentro de un 
proceso, una condición, 
para que, dependiendo de 
su resultado, se realice una 
acción u otra. 
Conozcamos ahora 
cómo podemos establecer 
más de una condición dentro del mismo pro- 
ceso. 

Definimos los procedimientos necesa- 
rios para obtener los catorce resultados de 
una quiniela de fútbol. La forma de hacerlo es 
la siguiente: 

A una variable le asignamos un valor 
elegido al azar comprendido entre 0 y 2. De- 
pendiendo del valor que contenga la variable, 
la Tortuga deberá dibujar en la pantalla: 


— Un 1, si la variable contiene el valor 
uno. 

— Un 2, si la variable contiene el valor 
dos. 

— Una X, si la variablé contiene el va- 
lor cero. 


Analizamos el proceso y vemos las di- 
ferentes partes de que consta: 


1.2 Asignar un valor al azar a una varia- 
ble. 

2. Ver si el número es UNO. Si lo es, di- 
bujar un uno. 

3.2 Ver si el número es DOS. Si lo es, di- 
bujar un dos. 


4. Ver si el número es CERO. Si lo es, 
dibujar una equis. 


Observa que tenemos tres condiciones 
y cada una de ellas tiene que realizar una ac- 
ción diferente en el caso que se cumpla. 

Hacemos la representación gráfica del 
proceso mediante un organigrama: 


EXPERIENCIA Y PRACTICAS EN LOGO 


Definimos ahora los procedimientos ne- 
cesarios para realizarlo: 

En primer lugar, definimos los que van 
a dibujar el UNO, el DOS y la EQUIS: 


? PARA UNO 
>AV15 

> Gl 135 
>AV5 

> FIN 


? PARA DOS 

> GI90 AV 5 
> GD 90 AV 7 
> GD 90 AV 5 
> GI90 AV 7 
>GI90 AV 5 
> FIN 


? PARA EQUIS 

> PONPOS [-7 15] 
> SL 

> PONY O 

> BL 

> PONPOS [0 15] 
> FIN 


A continuación definimos el procedi- 
miento con el que vamos a obtener un núme- 
ro aleatorio y dependiendo del que sea, dibu- 
jar en la pantalla el signo correspondiente: 


? PARA SIGNOS 

> HAZ "V AZAR 3 
> SI :V = 1 [UNO] 
> SI :V = 2 [DOS] 
> SI :V = 0 [EQUIS] 
> FIN 


En este procedimiento es donde se es- 
tablecen las tres condiciones. Cada una de 
ellas se debe expresar mediante un SI segui- 
do de la condición que se precisa. 

Por último, definimos un procedimiento 
para que el proceso que se realiza en SIGNOS 
se repita catorce veces y así poder obtener los 
catorce resultados. 


? PARA QUINIELA 

> REPITE 14 [SL BP BL SIGNOS ESPE- 
RA 50] 

> FIN 


Para ejecutarlo bastaría con introducir: 


? QUINIELA 


El procedimiento SIGNOS puede ser re- 
ducido. La última pregunta no sería necesaria 
hacerla, ya que si el valor de la variable no es 
ni uno ni dos, a la fuerza tiene que ser cero: 


? PARA SIGNOS 

> HAZ "V AZAR 3 

>SI:V =1[UNO] 

> SI :V = 2 [DOS] 

> EQUIS 

> FIN 

Veamos qué ocurre en este caso: 

Supongamos que la variable contiene el 
valor uno. El resultado al primer Sl sería CIER- 
TO y se realizaría la acción (dibujar un uno). 
A continuación pasa a la línea siguiente y 
como la variable no es igual a dos, no se rea- 
lizaría la acción, pasando a la línea siguiente. 
Como ésta sólo contiene una liamada al proce- 
dimiento EQUIS, se dibujaría una equis enci- 
ma del uno, lo cual no tendría que ocurrir. 

Si la variable contiene el valor dos, se 
dibujaría un dos y a continuación también una 
equis, lo que tampoco tendría que ocurrir. 

Para evitar esto, se tendría que conse- 
guir que no se continuase con la ejecución del 
procedimiento una vez se haya dibujado un 
uno o un dos. Ñ 

Esto lo podemos lograr gracias a la or- 
den ALTO. 

La orden ALTO detiene el procedimien- 
to que se está ejecutando y devuelve el con- 
trol al procedimiento que lo ha llamado, si 
existe. De no ser así, la ejecución se detiene 
por completo. 

En el procedimiento SIGNOS lo único 
que hay que hacer es devolver el control al 
procedimiento QUINIELA una vez que se haya 
dibujado el uno o el dos, para así no dibujar la 
equis: 


? PARA SIGNOS 

> HAZ "V AZAR 3 

> SI:V = 1 [UNO ALTO] 
> SI :V = 2 [DOS ALTO] 
> EQUIS 

> FIN 


El procedimiento SIGNOS puede acor- 
tarse aún más. 


? PARA SIGNOS 


> HAZ "V AZAR 3 

> SI :V = 1 [UNO] [SI :V = 2 [DOS] 
[EQUIS]] 

> FIN 


Se establece, en primer lugar, una con- 
dición. Si ésta se cumple, la acción a tomar es 
dibujar un UNO. Si no se cumple, realiza la ac- 
ción que se encuentra en los segundos corche- 
tes. Esta acción contiene a su vez otra condi- 
ción (:V = 2) y dos posibles acciones a hacer 
dependiendo del resultado. Si se cumple, se 
dibuja un dos, y si no, se dibuja una equis. 

Observa cómo las condiciones pueden 
formar parte de las acciones. 


Entrada de caracteres 


Todos los lenguajes de programación 
disponen de órdenes o instrucciones que per- 
miten leer datos de los periféricos, como pue- 
den ser: el teclado, un fichero del disco... 

En LOGO la orden LEECAR lee un ca- 
rácter en el archivo que en ese momento esté 
activado como archivo delectura, por defecto 
el carácter es leído del teclado. Y mientras no 
pulsemos una tecla, LEECAR estará esperán- 
dola, lo cual implica que la ejecución del pro- 
cedimiento no avanzará, a no ser que combi- 
nemos esta orden con TECLA?, pero de esto 
ya hablaremos más adelante. 


? LEECAR 


El ordenador se quedará esperando 
para leer un carácter, en nuestro caso desde 
el teclado. Cuando una tecla haya sido pulsa- 
da, la espera finalizará. 

Pero algo no funciona bien, el LOGO nos 
ha devuelto el mensaje: 


NO SE QUE DEBO HACER CON K 

(suponemos que se ha pulsado la letra 
K) 

Lo que ha ocurrido es que no hemos 
precisado qué queríamos hacer con el carác- 
ter leído. 

Podemos escribirlo: 


? ESCRIBE LEECAR 
Esta orden le indica al ordenador que 


. debe esperar a que un carácter sea pulsado, 


y luego que lo escriba. 
Podemos guardarlo en una variable: 


? HAZ "S LEECAR 


Cuando hayamos pulsado una tecla, su 
valor se almacenará en la variable $. 


Utilizarlo de operando: 
? ESCRIBE 5 + LEECAR 


Si pulsamos el 2, en la pantalla aparece 
un 7. 

Utilizarlo dentro de una expresión “ló- 
gica. 


? SI LEECAR = “S [BP] 


Si pulsamos una S la pantalla se borrará. 

Con estos ejemplos habrás comprobado 
que mientras el ordenador está esperando 
que se pulse una tecla, no aparece ningún avi- 
so en la pantalla; lo único que vemos es el cur- 
sor. : 
A continuación borramos la pantalla de 
texto y le decimos al ordenador que espere la 
entrada de un carácter. 


22m 
? BT HAZ "D LEECAR 


mientras no pulsemos una tecla en la pantalla, 
sólo veremos el cursor. 


NOTA: 
En el LOGO del SPECTRUM la sintaxis 
de esta primitiva es 


LEECARACTER o LCAR 


Antes hemos mencionado el nombre de 
otra primitiva, una primitiva que guarda rela- 
ción con LEECAR, nos referimos a: 


TECLA? 


Si piensas que devuelve un valor lógi- 
co, has acertado. 

Devuelve CIERTO si una tecla ha sido 
pulsada y un carácter espera ser leído por la 
orden LEECAR; si no, devuelve FALSO, 


? ESCRIBE TECLA? 
PALSO 


EXPERIENCIA Y PRACTICAS EN LOGO 


7? ESPERA 40 
7? ESCRIBE TECLA? 


S1 mientras se ejecuta ESPERA 40 pul- 
samos una tecla, la orden ESCRIBE TECLA? 
devolverá CIERTO; si no, devolverá FALSO. 


? MT ESPERA 50 SI TECLA? [MT] [OT] 


Le hemos dicho al ordenador que espe- 
re un cierto tiempo; a continuación que mire 
si se ha pulsado alguna tecla; si así es, apare- 
ce la Tortuga; si no, desaparece. 

Una vez tecleada la línea anterior y has- 
ta que la ejecución de la orden ESPERA 50 
haya terminado, tenemos tiempo para pulsar 
una tecla; si no lo hacemos, la Tortuga se ocul- 
tará. 

Prueba todo lo que hemos visto con es- 
tos ejemplos. 

— Procedimiento Pl 


? PARA Pl 

> REPITE 100 [SI TECLA? [BP HAZ "S 
LEECAR ESCRIBE :S] [AV 1]] 

> FIN 


El procedimiento Pl repite 100 veces la 
pregunta ¿se ha pulsado alguna tecla?; si la 
contestación es afirmativa (CIERTO), borra- 
mos la pantalla, asignamos a la variable S el 
valor de la tecla que hemos pulsado y escribi- 
mos dicho valor en la pantalla; si la contesta- 
ción, por el contrario, es negativa (FALSO), la 
Tortuga avanza un paso. 

Si ejecutamos este procedimiento y no 
pulsamos ninguna tecla, la Tortuga avanzará 
100 pasos sin que se borre la pantalla y S no 
tendrá ningún valor. 

Observa el organigrama de Pl: 


— Procedimiento P2 


? PARA P2 

> REPITE 100 [AV 1 SI TECLA? [BP HAZ 
“S LEECAR ALTO]] 

> FIN 


El procedimiento P2 es similar al ante- 
rior; la principal diferencia es que cuando pul- 
semos una tecla abandonaremos la ejecución 
del procedimiento. 


. 


— Procedimiento P3 


? PARA P3 

> HAZ 'S 

> ESPERA 40 

> SI TECLA? [BP HAZ "S LEECAR] 

> SI :S =" ALTO 

> SI Y ((S > 2) (S < 6) [POLI :S] [ES- 
CRIBE "INCORRECTO] 

> FIN 


Con el procedimiento (P3) podemos 
elegir desde el teclado el número de lados 
que queremos que tenga el polígono regular 
que el procedimiento POLI dibuja en la panta- 
lla. 

El polígono regular sólo se dibujará en 
el caso que pulsemos una tecla y que ésta 
corresponda a un número mayor que dos y 
menor que 7; esto significa que sólo podemos 
dibujar polígonos de tres a seis lados, ambos 
inclusive. 

Lo explicamos con un organigrama: 


El procedimiento que llamamos desde 
P3 dibuja un polígono regular cuyo número de 
lados determinamos nosotros desde el tecla- 
do. 


? PARAR POLI :N 
> REPITE :N [AV 30 GD 360 / :N] 
> FIN 


—Procedimiento P4 

Y por último, el procedimiento P4, que 
lee un carácter del teclado, y si el carácter 
pulsado es la letra C, el procedimiento finali- 
za; si no, se dibuja un círculo. 


? PARA P4 


> HAZ "S LEECAR 

> SI :S = "C [ALTO] 

> REPITE 36 [AV 1 GD 10] 
> FIN 


Cuadro resumen 
— ALTO 


Esta primitiva detiene la ejecución 
del procedimiento que la contiene, devol- 
viendo el control al procedimiento desde el 
que ha sido llamado. 


— LEECAR 


Lee un carácter del archivo que en 


ese momento esté activado como archivo de 
lectura; por defecto el carácter se leerá del 
teclado. 

Al encontrar LEECAR, la ejecución 
de un procedimiento se detiene, hasta que 
el carácter no se introduzca. 


— TECLA? 


Devuelve CIERTO si un carácter es- 
pera ser leído; si no, devuelve FALSO. 


Ejercicios 


1. Define dos procedimientos, uno que 
devuelva el mayor de dos números y otro que 
devuelva el mayor de tres números. 


EXPERIENCIA Y PRACTICAS EN LOGO 


Ten en cuenta que los números pueden 
ser cualesquiera. 

2. Sin utilizar los procedimientos con 
entradas, intenta conseguir los resultados de 
cualquiera de las tablas de multiplicar. 

3. Intenta hacer el siguiente dibujo. 


4. Define los procedimientos necesa- 
rios para que, dependiendo de los valores asig- 
nados al azar a dos variables, se dibuje la ficha 
de dominó correspondiente. 

3. ¿Son correctas las órdenes siguien- 
tes? 


— ?HAZ'A 1 
? HAZ "BO 
?SI :A=1[SI:B > 10 [HAZ “A :B]] 


— ESCRIBE LEECAR =:A 


—PPARA. A 
> AV 10 GD 90 
> REPITE 3[AV 10 GD 120] 
> ALTO 
> FIN 
— ?HAZ"V AZAR 10 
? SI:V > 2 ALTO [RE :V] 


— ? HAZ “A LEECAR 
? ESPERA 25 
? SI TECLA [ESCRIBE :A + LEECAR] 
[ESCRIBE :A] 


= PAHAZA 1 
? SI TECLA? = 
"CORRECTO] 


:A [ESCRIBE 


Solución a los ejercicios 
1: 
El procedimiento ORD devuelve el ma- 
yor de dos números cualesquiera. 


10 


? PARA ORD 

> ESCRIBE “PRIMERO? 

> HAZ “A LEECAR 

> ESCRIBE "SEGUNDO? 

> HAZ 'B LEECAR 

> SI :A > :¡B [ESCRIBE :A] [ESCRIBE :B] 
> FIN 


Los números los introducimos en varia- 
bles, a través de la primitiva LEECAR. 

Para guiarnos un poco a la hora de in- 
troducir los números hemos incluido dos órde- 
nes ESCRIBE. 

Para seleccionar el mayor de tres nú- 
meros ampliamos el procedimiento anterior. 


? PARA ORD3 

> ESCRIBE "PRIMERO? 

> HAZ “A LEECAR 

> ESCRIBE "SEGUNDO? 

> HAZ 'B LEECAR 

> SI:A >:B[HAZ 'F :A] [HAZ F ¡B] 

> ESCRIBE “TERCERO? 

> HAZ 'C LEECAR 

> SI :C > :F [ESCRIBE :C] [ESCRIBE :F] 
> FIN 


Si después de haber introducido en el 
ordenador estos procedimientos tecleas: 


? ORD3 ' 
Aparecerá en pantalla: 
PRIMERO? 


nos indica que introduzcamos el primer nú- 
mero. 

Esto mismo ocurre con SEGUNDO? y 
TERCERO? 


as 


El siguiente procedimiento muestra los 
resultados de la tabla de multiplicar del nú- 
mero que nosotros pulsemos. 


? PARA TABLA 

> ESCRIBE “TABLA 

> HAZ “A LEECAR 

> HAZ "CO 

> REPITE 10 [HAZ “C :C + 1 HAZ "R:A 
- :C ESCRIBE :R] 

> FIN 


Ejecutemos el procedimiento TABLA. 
? TABLA 


observa que la ejecución del procedimiento se 
ha detenido, es el momento de introducir el 
número, por ejemplo, el 6. 


(pulsa 6) 


han aparecido los números del 1 al 10 multi- 
plicados por 6. 

Ampliamos la acción del procedimien- 
to anterior con el procedimiento TABLAS. 

Su función es la siguiente: 

1. Preguntar cuántas tablas queremos 
obtener. 

2. Ejecutar TABLA tantas veces como 
hayamos indicado. 


? PARA TABLAS 
PT 

> BT 

> HAZ "A LEECAR 

> ESCRIBE :A 

> REPITE :A [TABLA] 
> FIN 


Vamos a ir dibujando la piscina defi- 
niendo procedimientos que dibujan distintas 
partes de ella. 

En primer lugar, vamos a dibujar el 
contorno de la piscina. Para ello definimos el 
procedimiento DIMEN, el cual hace tres llama- 
das al procedimiento RECTAN después de co- 
locar a la Tortuga en los lugares necesarios: 


? PARA DIMEN 

> SL 

> PONPOS [-120 -60] 

> RECTAN 150 240 

> SL 

> PONPOS [-110 -50] 

> RECTAN 130 220 

> SL 

> PONPOS [-95 -35] 

> RECTAN 100 190 

> GD 90 AV 15 Gl 90 

> REPITE 2 [REPITE 9 [BL RE 15 AV 15 
GD 90 SL AV 20 Gl 90] SL PONPOS 
[-80 80] PONRUMBO 0] 

=> Sk 

> PONPOS [-95 -15] 

> PONRUMBO 90 

> REPITE 2 [REPITE 4 [BL RE 15 AV 15 
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SL GI 90 AV 20 GD 90] SL PONPOS 
[110 -15]] 
> FIN 


El procedimiento RECTAN dibuja rec- 
tángulos de diferentes tamaños. Utiliza dos va- 
riables de entrada cuyos valores son dados en 
el procedimiento anterior: 


? PARA RECTAN :A :L 

> BL 

> REPITE 2 [AV :A GD 90 AV :L GD 90] 
> FIN 


La variable :A determina la anchura del 
rectángulo y la variable :L la longitud. 

A continuación definimos los procedi- 
mientos que van a dibujar las corcheras. Con 
CORCHERAS vamos situando a la Tortuga en 
los lugares donde debe empezar a dibujarlas 
y luego se realiza una llamada a CORCHO: 


? PARA CORCHERAS 
> SL 

> PONPOS [-95 -15] 
> CORCHO 

> SL 

> PONPOS [-95 5] 
> CORCHO 

> SL 

> PONPOS [-95 25] 
> CORCHO 

> SL 

> PONPOS [-95 45] 
> CORCHO 

> SL 

> FIN 


El procedimiento corcho es el que di- 
buja las corcheras: 


? PARA CORCHO 

> PONRUMBO 90 

> BL 

> AV 10 

> REPITE 34 [GD 90 AV 2 Gl 90 REPITE 
2 [AV 2 GI 90 AV 4 Gl 90] AV 
2G190 AV 2 GD 90 AV 3] 

> AV 10 

> FIN 


Ahora definimos los que van a dibujar 
los puntos de salida de cada calle. 


EXPERIENCIA Y PRACTICAS EN LOGO 


Con SALIDA situamos a la Tortuga en 
cada punto en donde tiene que dibujar las sa- 
lidas y llamamos al procedimiento SAL: 


? PARA SALIDA 
SL 

> PONPOS [99 -28] 
> SAL 

> PONPOS [99 -8] 
> SAL 

> SL 

> PONPOS [99 12] 
> SAL 

> SL 

> PONPOS [99 32] 
> SAL 

> SL 

> PONPOS [99 52] 
> SAL 

> FIN 


SAL dibuja la salida: 


? PARA SAL 

> BL 

> PONRUMBO -90 
> REPITE 4 [BL AV 6 GD 90] 
> PONRUMBO -45 
> SL 

> AV2 

> BL 

> RELLENA 

> PONRUMBO 90 
> AV4 

> GI90 AV 3 

> GI90 AV 2 

> FIN 


Una vez que tenemos todos los procedi- 
mientos definidos, los agrupamos en uno ge- 
neral: 


? PARA PISCINA 
> BP 

> OT 

> DIMEN 

> CORCHERAS 
> SALIDA 

> FIN 


Para ejecutarlo basta con introducir: 
? PISCINA 
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4: 


En primer lugar, definimos el procedi- 
miento que va a dibujar la ficha del dominó, 
pero sin pintar en ella ningún punto: 


? PARA FICHA 

> SL 

> PONPOS [-15 -20] 

> BL 

> REPITE 2 [AV 60 GD 90 AV 30 GD 90] 
> AV 30 GD 90 

> AV 30 RE 16 

> GI 90 RE 1 

> REPITE 4 [AV 2 GD 90] 

> FIN 


A continuación definimos otro procedi- 
miento que va a dibujar simplemente un pun- 
to: 


?PARA P 

> BL 

> REPITE 4 [AV 2 GD 90] 
> FIN 


Una vez que tenemos la ficha y el pun- 
to, definimos un procedimiento para cada uno 
de los números que aparecen en las fichas del 
dominó. Dependiendo del número que sea, di- 
bujará los puntos correspondientes y en el lu- 
gar preciso. : 

En estos procedimientos vamos situan- 
do a la Tortuga en los sitios adecuados y rea- 
lizando llamadas al procedimiento P para di- 
bujar los puntos: 


? PARA UNO 

> SL 

> PONX -1 

> PONY -7 + :V 
E 

> FIN 


Al procedimiento que dibuja el dos lo 
llamamos DO, ya que algunas versiones de 
Logo no admite DOS como nombre de proce- 
dimiento, por ser una primitiva: 


? PARA DO 

> SL 

> PONX -8 

> PONY 1 + :V 
>P 

> SL 


> PONX 6 

> PONY -15 +:V 
>P 

> FIN 


El tres se consigue dibujando el uno y 
el dos: 


? PARA TRES 
> UNO 

> DO 

> FIN 


Para el cuatro podemos utilizar el dos y 
después dibujar los dos puntos que faltan: 


PARA CUATRO 
> DO 

> SL 

> PONX -8 

> PONY -15 + :V 
>P 

> SL 

> PONX 6 

> PONY 1 +:V 
>P 

> FIN 


El cinco lo conseguimos dibujando el 
cuatro y el uno: 


? PARA CINCO 
> CUATRO 

> UNO 

> FIN 


Para el seis dibujamos primero el cua- 
tro y a continuación los dos puntos que le fal- 
tan: 


y 


PARA SEIS 
CUATRO 

SL 

PONX -8 
PONY -7 + :V 
P 

She 

PONX 6 
PONY -7 +:V 
P 

FIN 


La variable :V la utilizamos para dibu- 
jar, dependiendo de su valor, los números en 
la parte superior o en la inferior. 

Una vez que tengamos todos los núme- 
ros, definimos un procedimiento para generar, 
en primer lugar, los números aleatorios. Estos 


VVWVVVVVVVV>" 
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números son introducidos en las variables :A - 
y :B. 

La variable :A va a contener el número 
correspondiente al que hay que dibujar en la 
parte superior de la ficha y la variable :B el 
que se va a dibujar en la parte inferior. Una 
vez que los números son asignados a las va- 
riables, preguntamos, en primer lugar, por el 
contenido de la variable :A, y dependiendo 
del valor que tenga, realiza una llamada al 
procedimiento que dibuja el número corres- 
pondiente. Mientras que se están realizando 
las preguntas a la variable :A, la variable :V 
tiene asignado el valor 30. Este valor es el que 
hay que sumar a la coordenada Y en cada uno 
de los procedimientos que dibujan los núme- 
ros, para que éstos se dibujen en la parte su- 
perior de la ficha. 

Una vez que se ha dibujado el número 
superior, se realiza el mismo proceso con la 
variable :B para dibujar el número inferior. En 
este caso a la variable :V se le asigna un 0. 


? PARA CONTROL 
> FICHA 

> HAZ “A AZAR 7 

> HAZ 'B AZAR 7 

> HAZ “V 30 

> SI:A=1[UNO] 
> SI:A=2[DO] 

> SI:A=3[ TRES] 

> SI:A =4[ CUATRO ] 
> SI:A =5[ CINCO ] 
> SI:A = 6 [SEIS ] 

> HAZ "VO 

> SI:B=1[ UNO] 

> SIB=2[DO] 

> SI:B=3|[ TRES ] 

> SI:B=4[ CUATRO ] 
> SI:B=5[ CINCO ] 
> SI :B= 6 [ SEIS ] 

> FIN 


Ahora definimos el último procedimien- 
to para que el proceso se realice 20 veces y 
así obtener en la pantalla el dibujo de 20 fi- 
chas del dominó: 


? PARA VARIAS 

> REPITE 10 [ BP CONTROL ESPERA 
50 ] 

> FIN 


Si lo ejecutas, puedes obtener fichas 
como éstas: 


EXPERIENCIA Y PRACTICAS EN LOGO 


La variable A no tiene valor. 


— ? PARAA 
> AV10GD 90 
> REPITE 3[ AV 10 GD 120 ] 
> ALTO 
> FIN 
CORRECTO 


La orden ALTO puede aparecer en 
cualquier línea de un procedimiento y en soli- 
tario. 


— ? HAZ"V AZAR 10 
?2 SI:V>2ALTO[RE :V ] 
Fig. 2. CORRECTO 


En este caso la primitiva ALTO no es 
una acción del SI; por tanto, se cumpla o no la 
condición, la ejecución del procedimiento se 
detendrá. 


— ? HAZ"A LEECAR 
? ESPERA 25 
? SI TECLA [ ESCRIBE :A + LEE- 
CAR ][ ESCRIBE :A ] 
INCORRECTO 


LOGO devuelve el mensaje de error: 


NO SE COMO DEBE HACER PARA TE- 
CLA. 


dde Sería correcto: 
A ? SI TECLA? [ ESCRIBE :A + LEECAR 
— ? HAZ'Al ] [ ESCRIBE :A ] 
? HAZ'BO A x 
“ A HAZ A 1 
? SI:A=1[SI:B>10[HAZ'A B]] > SI TECLA? = :A [ ESCRIBE 
CORRECTO “CORRECTO ][ ESCRIBE TECLA? ] 
Si la condición (SI :A = 1) se cumple, se FALSO 


ejecutará la acción que hay dentro de los cor- 


chetes que a su vez es otra condición con una o a UBdo GElaL) 


aceión a realizar en el caso que se cumpla. CORRECTO 
La condición no se cumple, no hemos 
— ? ESCRIBIR LEECAR =:A pulsado ninguna tecla antes de la comproba- 
INCORRECTO ción; por tanto, se ejecutará la segunda acción. 
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N el tomo anterior estuvimos 

viendo cómo tendríamos 

que hacer nuestros progra- 

mas de juegos para que in- 

cluyesen disparos de balas. 

Vimos un programa para el 

SPECTRUM, y otro para el 

resto de los ordenadores. En 

el primero de ellos un pistolero tenía que dis- 

parar a una serie de bloques que aparecían 

aleatoriamente en la pantalla. En el segundo 

el que disparaba era un tanque. Como se pudo 

apreciar, mientras la bala estaba moviéndose, 

ni el pistolero ni el tanque podían moverse por 

la pantalla. Ese es un error que no pueden te- 

ner nunca los programas que nosotros mismos 

realicemos. Es muy importante que mientras 

la bala se mueve nosotros también nos poda- 
mos mover por la pantalla. 

Al final del tomo anterior se le dijo al 


lector que probase y que intentase realizar un 
programa que permitiese el movimiento de la 
bala a la vez que el del pistolero o el del tan- 
que. También se pedía que al chocar la bala 
con uno de los cuadrados éste explotase. Ló- 
gicamente, mientras cualquiera de los cuadra- 
dos está explotando, el hombre (o el tanque) 
tienen que seguir pudiéndose mover. 

Los dos programas que vamos a ver a 
continuación cumplen perfectamente estos co- 
metidos y algunos más. Lo que no hacen es 
que la bala rebote si no choca con ningún cua- 
drado durante su movimiento. Se ha preferido 
dejar esta modificación en manos del lector 
para que coja práctica y cree sus propias ru- 
tinas, así como su propio estilo de programa- 
ción. 

El primero de los programas es una mo- 
dificación del LLANERO SOLITARIO, que ya 
hemos visto. 


100 REM ASS SOS lO lOlOlO OJO OIOJOK 
110 REM * EL LLANERO SOLITARIO x 
120 REM ddosdoldlOaloaldlalololola lalola lajojajok 


130 REM 
140 CLS 
150 REM 


160 REM *x** DEFINICION DEL LLANERO SOLITARIO x*xx 


170 REM 


180 DATA 0, 0,60, 80, 255, 60,62,60 

190 DATA 24,60,126,127,127,126,126, 126 
200 DATA 0,0,0,0,128,254,120,0 

210 DATA 126,126,102,102,102,102,102,119 


220 REM 


230 REM ***k LECTURA DE LAS DATAS kx 


240 REM 

250 FOR I=0 TO 31 

260 READ N 

270 FOKE USR "“A"+I,N 
280 NEXT I 
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290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
TO) 
720 
. 730 
> 740 
750 
800 
810 
820 
830 
840 
850 
900 
910 
920 
930 
940 
950 
1000 
1010 
1020 
1030 
1040 
1050 


REM 
REM *xx*x CREACION DE LOS CARACTERES DE LA EXPLOSION *xx* 


REM 
FOR I=32 TO 63 
LET N=INT(RND*255)+1 
POKE USR "A"+I,N 
NEXT I 
REM 
REM x*x*x* COLOCACION DE LOS CUADRADITOS xx*x* 
REM 
DIM A(22,32) 
REM 
INK O 
BORDER 1 
PAPER 6 
CLS 
REM 
FOR I=1 TO 5 
LET C=INT(RND*5+1) 
LET XT=INT(RND*20)+1 
LET YT=INT(RND*16)+15 
PRINT INK C;AT XT, YT;CHR$(143) 
LET A(XT, YT)=1 
NEXT I 
REM 
REM ***x INICIALIZACION DE VARIABLES *x*x* 
REM 
LET N=0 
LET X=11 
LET Y=1 
LET D=0 
LET P=0 
LET SW=0 1 
REM 
REM *x*x PROGRAMA PRINCIPAL *xx 
REM 
PRINT AT X-1,Y;CHR$(144) 
PRINT AT X, Y;CHR$(145);CHR$(146) 
PRINT AT X+1,Y;CHR$(147) 
LET A$=INKEY$ 
IF A$="" THEN LET A$="8":GOTO 730 
IF CODE A$<>54 AND CODE A$<>55 AND CODE A$<>56 THEN GOTO 680 
IF CODE A$<>56 THEN PRINT AT X-1,Y;" "¡AT X,Y;" "¡AT X+1,Y;" 
IF A$="8" AND SW=0 THEN LET XB=X:LET YB=Y+2:LET SW=1:GOTO 730 
GOSUB VAL(A$)*100+100 
GOSUB 1000 
GOTO 650 
REM 
REM *x*x*k MOVIMIENTO HACIA ABAJO xxx 
REM 
LET X=X+1 
IF X>20 THEN LET X=20 
RETURN 
REM 
REM *x*x* MOVIMIENTO HACIA ARRIBA x*xx 
REM 
LET X=X-1 
IF X<1 THEN LET X=1 
RETURN 
REM 
REM 4** DISPARO DEL LLANERO x*xkx 
REM 
IF D=5 THEN GOTO 1200 
IF P<>0 THEN GOSUB 2000: RETURN 
IF SW=0 THEN RETURN 
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1060 
1070 
1080 
1090 
1100 
1200 
1210 
1220 
1230 
1240 
1250 
2000 
2010 
2020 
2030 
2040 
2050 
2100 
2110 
2120 
2200 
2210 
2220 
2300 
2310 
2320 
2400 
2410 
2420 
2430 
2500 
2510 
2520 
2530 
2540 
2550 


PRINT AT XB,YB;" ." 

IF A(XB, YB+1)=1 THEN LET P=1:RETURN 

LET YB=YB+1 

IF YB>30 THEN PRINT AT XB,YX;”" ":LET D=D+1:LET SH:0 

RETURN 

REM 

REM xxx FIN DEL JUEGO xxx 

REM 

PRINT AT 0,0;"EL JUEGO HA TERMINADO" 

PRINT "ADIOS ....” 

STOP 

REM 

REM *xx* EXPLOSION DEL CUADRADITO *xx* 

REM 

GOSUB 2000+100*P P 
IF N=3 THEN GOTO 2500 
RETURN 

PRINT AT XB, YB+1;CHR$(148) 
LET P=2 

RETURN 

PRINT AT XB,YB+1;CHR$(149) 
LET P=3 

RETURN 

PRINT AT XB, YB+1;CHR$(150) 
LET Pr 

RETURN 

PRINT AT XB, YB+1;CHR$(151) 
LET P=1 

LET N=N+1 

RETURN 

PRINT AT XB,YB+1;" 

LET P.O 

LET SW=0 

LET N=0 

LET A(XB, YB+1)=0 

RETURN 


Fig. 1. Un momento después de haber chocado la bala con el 
cuadrado. 


El segundo de los programas también 
es una versión mejorada del programa ATA- 
QUE BELICO y que también vimos en el tomo 
anterior. Este programa está realizado bajo un 
IBM. Para que pueda ser utilizado en los de- 
más ordenadores hay que realizar una serie 
de cambios. 


100 REM soda oJOIOIOIOOK 
110 REM * ATAQUE BELICO x* 
120 REM ARA OO IOIOIOIOIOROJOK 
130 REM 

140 CLS 

150 RANDOMIZE TIMER 

160 DIM A(24, 40) 

170 REM 

180 REM *x** SITUACION DE LOS BLANCOS A DISPARAR *xkx 
190 REM 

200 FOR I=1 TO 5 

210 LET C=INT(RNDx16) 
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220 IF C=2 THEN GOTO 210 

230 LET XT=INT(RND*18)+2 

240 LET YT=INT(RND*20)+20 

250 COLOR C 

260 LOCATE XT, YT 

270 PRINT CHR$(177) 

280 LET A(XT, YT)=1 

290 NEXT I 

300 REM 

310 REM **x* DISENO DEL TANQUE *x*x* 

320 REM 

330 LET X=11 

3540 LET Y=2 

350 LET D=0 

360 COLOR 4 

370 LOCATE X-2,Y+4 

380 PRINT CHR$(218);CHR$(196) 

390 LOCATE X-1,Y+4 

400 PRINT CHR$(219);CHR$(219);STRING$(3,205) 
410 LOCATE X,Y+1 

420 PRINT STRING$(8,219) 

430 LOCATE X+1,Y 

440 PRINT STRING$(10, 219) 

450 REM 

460 REM **x* MOVIMIENTO Y DISPARO *x*x* 
470 REM 

480 LET A$=INKEYS 

490 IF A$="" THEN LET A$="Q":GOTO 600 
500 IF A$<>"P" AND A$<>"L” AND A$<>"Q" THEN GOTO 480 
510 IF A$="Q" AND SW=0 THEN LET XB=X-1:LET YB=Y+9:LET SW-=1:GOTO 600 
520 LOCATE X-2,Y+4 

530 PRINT " 

540 LOCATE X-1,Y+4 : 
550 PRINT SPC(5) 

560 LOCATE X, Y+1 

570 PRINT SPC(8) 

580 LOCATE X+1,Y 

590 PRINT SPC(10) 

6800 IF A$="Q” THEN GOSUB 660:GOTO 640 
610 IF A$="L"” THEN GOSUB 780 

620 IF A$="P"” THEN GOSUB 840 

630 GOSUB 660 

840 GOTO 370 

650 REM 

660 REM x*x*x* DISPARO DEL TANQUE Xxx 

670 REM 

680 IF D=5 THEN GOTO 900 

690 IF P<>0 THEN GOSUB 960: RETURN 

700 IF SW=0 THEN RETURN 

710 LOCATE XB, YB 

720 PRINT " ";CHR$(249) 

730 IF A(XB,YB+1)=1 THEN LET P=1: RETURN 
740 LET YB=YB+1 

750 IF YB>38 THEN LOCATE XB,YB:PRINT " ":LET D=D+1:LET SW=0 
760 RETURN 

770 REM 

780 REM *x*x* MOVIMIENTO HACIA ABAJO *x** 
790 REM 

800 LET X=X+1 

810 IF X>20 THEN LET X=20 

820 RETURN 

830 REM 

840 REM *** MOVIMIENTO HACIA ARRIBA **x* 
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850 REM 

860 LET X=X-1 

870 IF X<3 THEN LET X=3 

880 RETURN 

890 REM 

900 REM **x* FIN DEL JUEGO xxx 
910 REM 


920 
930 


LOCATE 1,1 
PRINT "EL JUEGO HA TERMINADO. " 


940 PRINT "ADIOS ....” 


950 
960 
970 


END 
REM 
REM *x** EXPLOSION DEL CUADRADITO x*xx 


980 REM 
990 ON P GOSUB 1020,1060,1100, 1140 
IF N=3 THEN GOTO 1190 E 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 


RETURN 

LOCATE XB, YB+1 
PRINT CHR$(185) 
LET P=2 

RETURN 

LOCATE XB, YB+1 
PRINT CHR$(202) 
LET P=3 

RETURN 

LOCATE XB, YB+1 
PRINT CHR$(204) 
LET P=4 

RETURN 

LOCATE XB, YB+1 
PRINT CHR$(203) 
LET P=1 

LET N=N+1 
RETURN 

LOCATE XB, YB+1 
PRINT ” ” 

LET P=0 

LET SW=0 

LET N=0 

RETURN 


Fig. 2. Un cuadrado está explosionando mientras el tanque se 


mueve hacia abajo. 


COMMODORE 


140 PRINT CHR$(147) 

150 LET A=RND(-TD 

210 REM 

230 LET XT=INT(RND()18)+1 
240 LET YT=INT(RND()'20)+20 
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250 REM 

260 POKE 214,XT:POKE 211,YT 

2710 PRINT CHR$(166) 

360 REM 

370 POKE 214,X-2:POKE 211, Y+4 

380 PRINT CHR$(176);CHR$(99) 

390 POKE 214,X-1:POKE 211,Y+4 

400 PRINT CHR$(166); CHR$(166); CHR$(168); 


CHR$(168); CHR$(168) 


410 POKE 214,X:POKE 211, Y+] 

f20 FOR Z=1 TO 8:PRINT CHR$(166);':NEXT Z 
430 POKE 214,X+1:POKE 211,Y 

440 FOR Z=1 TO 10:PRINT CHR$(166);':NEXT Z 
480 GET A$ 

520 POKE 214,X-2:POKE 211, Y+4 

540 POKE 214,X-1:POKE 211, Y+4 


550 PRINT * ".|REM 5 ESPACIOS 
560 POKE 214,X:POKE 211, Y+] 

570 PRINT * "REM 8 ESPACIOS 
580 POKE 214,X+1:POKE 211, Y 

590 PRINT * ".|REM 10 ESPACIOS 
710 POKE 214,XB:POKE 211,YB 
TAOPRRINUS 00 


750 IF YB>38 THEN POKE 214,XB:POKE 211, YB:PRINT 
".LET D=D+1:LET SW=0 
920 POKE 214,1:POKE 211,1 
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1020 POKE 214,XB:POKE 211,YB+1 
1030 PRINY CHR$(179) 
1060 POKE 214,XB:POKE 211,YB+1 
1070 PRINT CHR$(177) 
1100 POKE 214,XB:POKE 211, YB+1 
1110 PRINT CHR$(171) 
1140 POKE 214,XB:POKE 211, YB+1 
1150 PRINT CHR$(178) 
1190 POKE 214,XB:POKE 211, YB+1 


AMSTRAD 


150 RANDOMIZE TIME 
210 LET C=INT(RND(D)7)+1 
230 LET XT=INT(RND(1)18)+2 
240 LET YT=INT(RND(1)'20)+20 
250 INK C 
260 LOCATE YT, XT 
270 PRINT CHR$(127) 
360 INK 4 
370 LOCATE Y+4,X-2 
380 PRINT CHR$(150);CHR$(154) 
390 LOCATE Y+4,X-1 
400 PRINT CHR$(143);CHR$(143)¡STRING$(3,140) 
410 LOCATE Y+1,X 
420 PRINT STRING$(8,143) 
430 LOCATE Y X+1 
440 PRINT STRING$(10,143) 
520 LOCATE Y+4,X-2 
540 LOCATE Y+4,X-1 
560 LOCATE Y+1,X 
580 LOCATE Y,X+1 
710 LOCATE YB,XB 
720 PRINT " "¡CHR$(144) 
750 IF YB>38 THEN LOCATE YB,XB:PRINT * ":LET 
D=D+]:LET SW=0 
1020 LOCATE YB+1,XB 
1030 PRINT CHR$(158) 
1060 LOCATE YB+1,XB 
1070 PRINT CHR$(57) 
1100 LOCATE YB+1,XB 
1110 PRINT CHR$(155) 
1140 LOCATE YB+1,XB 
1150 PRINT CHR$(151) 
1190 LOCATE YB+1,XB 
MSX > 
150 LET A=RNDC-TIME) 
210 LET C=INT(RND(D)'D)+1 
230 LET XT=INT(RND(1)18)+2 
240 LET YT=INT(RND()'20)+20 
260 LOCATE YT,XT 
270 PRINT CHR$(215) 
370 LOCATE Y+4,X-2 
380 PRINT CHR$*“(199),CHR$(195) 
390 LOCATE Y+4,X-1 
400 PRINT CHR$(219)CHR$(219)¡STRING$(3,195) 
410 LOCATE Y+1,X 
420 PRINT STRING$(8,219) 
430 LOCATE Y,X+1 
440 PRINT STRING$(10,219) 
520 LOCATE Y+4,X-2 
540 LOCATE Y+4,X-1 
560 LOCATE Y+1,X 
580 LOCATE Y,X+1 
710 LOCATE YB,XB 
720 PRINT * "¡CHR$(188) 
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750 IF YB>38 THEN LOCATE YB,XB:PRINT " "LET 
D=D+1:LET SW=0 

1020 LOCATE YB+1,XB 
1030 PRINT CHR$(192) 
1060 LOCATE YB+1,XB 
1070 PRINT CHR$(198) 
1100 LOCATE YB+1,XB 
1110 PRINT CHR$(195) 
1140 LOCATE YB+1,XB 
1150 PRINT CHR$(201) 
1160 LOCATE YB+1,XB 


Vamos a ver ahora cómo están hechos 
estos dos programas. Como ambos son muy 
parecidos (lo único que varían son los núme- 
ros de línea y la forma de hacer las mismas co- 
sas), sólo vamos a explicar el funcionamiento 
del primer programa. Si se entiende éste, se 
puede comprender perfectamente cómo fun- 
ciona el segundo. La lógica, e incluso la forma 
de hacer las cosas, es igual. 

Debido a que muchas de las partes son 
iguales a las de la versión anterior, sólo expli- 
caremos aquéllas que son distintas, No hay 
que preocuparse porque los números de línea 
sean distintos en los programas. Da lo mismo 
en qué líneas se encuentren un grupo de ins- 
trucciones para que desarrollen una función. 

De las partes que no vamos a comentar 
sólo diremos la función que realizan. 

Líneas 180 a,210. En ellas se encuentra 
almacenado en líneas DATA la figura del LLA- 
NERO SOLITARIO. 

Líneas 250 a 280. Leemos los números 
de las líneas DATAS y los introducimos en la 
zona de caracteres definibles. 

Línea 320. Comenzamos un bucle den- 
tro del cual vamos a definir las cuatro posicio- 
nes que configurarán la explosión de una cua- 
drado al ser alcanzado por una bala. La defi- 
nición será aleatoria. 

Línea 330. Obtenemos un número alea- 
torio entre 1 y 255 y lo almacenamos en la va- 
riable numérica N. 

Línea 340. Almacenamos dicho número 
en la zona de memoria que guarda los carac- 
teres definidos por el usuario. Los guardamos 
a continuación de los cuatro anteriores. 

Línea 350. Aquí termina el bucle. 

Línea 390. Definimos una matriz de 22 
x 32 elementos. Esta nos servirá para saber 
cuándo la bala ha chocado con un cuadradito. 

Línea 410 a 440. Ponemos los colores de 
la tinta, del papel y del borde. Borramos la 
pantalla. 

Línea 460 a 520. Imprimimos de forma 
aleatoria por la pantalla cinco cuadraditos de 
colores también aleatorios. La única línea que 


aparece como nueva en este trozo del progra- 
ma es la 510, En ella almacenamos un uno en 
el elemento de la matriz que tiene el mismo 
número de fila y de columna que el cuadrado 
que acabamos de imprimir en la pantalla. 

Línea 560. Ponemos la variable N a 
cero. Esta variable será la encargada de con- 
tar las veces que un cuadradito ha explotado 
antes de hacerlo desaparecer de la pantalla. 

Líneas 570 y 580. Definimos la posición 
del pistolero en la pantalla. 

Línea 590. Ponemos a cero la variable 
D. Esta nos indicará el número de balas que 
hemos disparado hasta el momento. 

Línea 600. Ponemos a cero la variable 
B. Utilizaremos esta variable para saber qué 
momento de la explosión tenemos que impri- 
mir la siguiente vez que tengamos que hacer- 
lo. 


Línea 610. Ponemos SW a cero. Esta va- 
riable nos indicará si hay una bala moviéndo- 
se por la pantalla. 

Líneas 650 a 670. Imprimimos la figura 
del pistolero en la pantalla. 


Línea 680. Leemos del teclado si el 
usuario ha pulsado alguna tecla. 


Línea 690. Esta línea es muy importan- 
te. Si el usuario no ha pulsado ninguna tecla, 
entonces hacemos que A$ sea igual al carác- 
ter '8', Después nos vamos a la línea 730. Esta 
línea nos va a permitir que la bala se mueva, 
aunque nosotros no hayamos pulsado ninguna 
tecla. Más adelante esto quedará más claro. 


Línea 720. Preguntamos la variable A$ 
es igual al carácter '8' y si, ala vez, no hay nin- 
guna bala moviéndose por la pantalla. A$ será 
igual a '8* cuando el usuario pulse la tecla de 
disparo. Se comprueba que la variable SW es 
igual a cero para que no haya dos balas a la 
vez en la pantalla. En el caso de que la com- 
probación sea correcta, entonces almacena- 
mos en XB la fila desde donde tiene que salir 
la bala, en YB la columna desde donde empie- 
za el movimiento y ponemos SW a uno, puesto 
que vamos a empezar a mover una bala por la 
pantalla. 

Línea 730. Nos vamos a la línea que nos 
interese, 


Línea 740. Después de volver de la lí- 
nea en la que nos encontrábamos hacemos un 
GOSUB 1000 por una razón muy importante. Si 
el usuario pulsó alguna tecla de movimiento, 
entonces no hemos movido la bala. Al mandar 
el control del programa a la línea 1000 vamos 
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a moverla una posición más hacia adelante an- 
tes de mirar si se está pulsando otra tecla. 

Líneas 830 a 850. Se controla el movi- 
miento hacia abajo del pistolero, 

Líneas 930 a 950. Se controla el movi- 
miento hacia arriba del pistolero. 

Línea 1030. Si se han agotado todas las 
balas, nos vamos a la línea 1200 para imprimir 
un mensaje de despedida. 

Línea 1040. Si hemos chocado con algu- 
no de los cuadraditos (P<>0), entonces nos 
vamos a la línea 2000 para gestionar la explo- 
sión. Cuando el ordenador vuelva de esta Jí- 
nea, retornamos al programa principal. 

Línea 1050. Si no hay ninguna bala en 
camino, nos volvemos al programa principal. 

Línea 1060. Imprimimos la bala en la si- 
guiente posición de la pantalla. 

Línea 1070. Y comprobamos que la si- 
guiente posición no está ocupada por un cua- 
dradito. En caso de que lo esté, ponemos la va- 
riable P a uno para que cuando el programa 
vuelva a pasar por esta rutina, no mueva la 
bala, sino que forme la explosión. También de- 
volvemos el control al programa general. 

Línea 1080. Sumamos uno a la posición 
de la bala para imprimirla en la siguiente vuel- 
ta. 


Línea 1090. Si hemos llegado al final de 
la pantalla, entonces borramos la bala, suma- 
mos uno al contador de balas gastadas y, como 
la bala ya ha desaparecido, ponemos a cero la 
variable SW. Esta será una de las líneas que 


“tendrás que modificar sin quieres que la bala 


invierta su trayectoria al llegar al final de la 
pantalla sin chocar con ningún objeto. 


Línea 1100. Nos volvemos al programa 
principal. Como se puede ver, sólo hemos mo- 
vido la bala una posición hacia la derecha. 

Líneas 1230 a 1250. Nos despedimos 
del jugador. 

Línea 2030. Dependiendo del valor de 
la variable P, nos vamos a la línea 2100, 2200, 
2300 Ó 2400, Como tenemos cuatro posiciones 
distintas de la explosión, el valor de P irá va- 
riando desde uno (1) hasta cuatro (4). Con 
cada valor de la variable P imprimiremos uno 
de los momentos de la explosión. 

Línea 2040. Si hemos repetido la serie 
de los cuatro caracteres para realizar la ex- 
plosión durante tres veces, entonces nos va- 
mos a la línea 2500 para borrar el cuadrado. 

Línea 2050. Retornamos al programa 
general. 


MANEJO DE SPRITES Y ELEMENTOS GRAFICOS 


Líneas 2100 a 2120. Imprimimos la pri- 
mera fase de la explosión, hacemos que P ten- 
ga valor dos (2) para que la siguiente vez se 
escriba la segunda fase de la explosión y re- 
tornamos al principio de la rutina. 


Líneas 2200 a 2220. Imprimimos la se- 
gunda fase de la explosión, hacemos que P sea 
igual a tres (3) y retornamos a la rutina princi- 
pal. 


Líneas 2300 a 2320. Imprimimos la ter- 
cera fase de la explosión, cambiamos el valor 
de P a cuatro (4) y nos volvemos a la rutina 
principal. 


Líneas 2400 a 2430. Imprimimos la 
cuarta y última fase de la explosión, volvemos 
a poner el valor de P a uno (1) para que se 
vuelva a repetir la secuencia, le sumamos uno 
al contador de explosiones (al final tenemos 
que realizar la explosión tres veces) y nos vol- 
vemos a la rutina principal. 
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Líneas 2500 a 2550. Llegamos a este 
grupo de líneas cuando hemos realizado la ex- 
plosión durante tres veces. Borramos el cua- 
drado que ha explotado, ponemos la variable 
P a cero para indicar que no hay explosiones, 
ponemos SW a cero para indicar que no hay 
balas moviéndose por la pantalla, hacemos 
que el contador de explosiones sea igual a 
cero, borramos el cuadrado de la matriz don- 
de almacenábamos las incidencias que 
ocurrían en la pantalla y nos volvemos al pro- 
grama principal. 

Con esto queda claro el funcionamiento 
del primer programa y, lógicamente, también 
del segundo. 

Se vuelve a recomendar al lector que 
intente hacer y resolver sus propios progra- 
mas. A los usuarios de ordenadores que no 
sean IBM se les recomienda que lean la expli- 
cación del funcionamiento del primer progra- 
ma y apliquen lo que aprendan en entender 
el segundo. 


TRUCOS Y RUTINAS BASICAS 


A hemos dicho muchas ve- 

ces que una de las partes 

más importantes de los pro- 

gramas es la presentación. 

Un programa puede ser 

aceptado o rechazado, de- 

pendiendo de lo agradable 

que sea para el usuario. Se 

puede decir que para que un programa sea 

bueno, es indispensable que su presentación 

sea buena. Pero no sólo vale presentar de una 

forma bonita los programas. Cada tipo de pro- 

grama tiene que estar presentado de una ma- 

nera. Así, pues, la forma que tendrá que tener 

un programa de gestión en la pantalla es muy 
distinta de la que tendría un juego. 

En este tomo vamos a ver una serie de 


6000 
6010 
5020 
5030 
6040 
6050 
6080 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
5190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
FOR I=1 TO LEN(A$) 
RESTORE 8010 


pe 
+ 
*k 


xk 


XA kk * 


XX AAA ACA 


LET N=N-32 
LET N=Nx*x8 


rutinas que nos permitirán crear letras más 
grandes de las que tiene el ordenador. Estas 
letras serán ocho veces más grandes. Poder 
dar mensajes con letras más grandes de lo 
normal puede hacer que el usuario se dé 
cuenta de ciertos mensajes que, de otra ma- 
nera, no vería. Este tipo de letras son buenas 
para aplicar en programas donde el usuario 
va a ser un niño. Con éstas se puede conse- 


guir que el niño no tenga que hacer esfuerzos 


<<< IMPRESION DE CARACTERES GIGANTES >>> 


* VARIABLES QUE HAY QUE PASARLE A LA RUTINA 


MENSAJE A IMPRIMIR : 
COLUMNA DONDE EMPEZARA EL MESAJE 
FILA DONDE SE COLOCARA EL MESAJE 


VARIABLES USADAS POR LA RUTINA 


POSICION DE LA DEFINICION DEL CARACTER 
VARIABLE QUE RECOGE EL DATO DE LAS LINEAS DATA 
VARIABLE INDICE DEL PRIMER BUCLE 

VARIABLE INDICE DEL SEGUNDO BUCLE 


RUTINA NO DEVUELVE NINGUN VALOR 
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para leer la pantalla y que se interese por el 
programa que está utilizando. 


Sin esperar más vamos a ver el primer 
programa. Con él podremos imprimir este tipo 
de letras con sólo mandarle una serie de pará- 
metros. 


AMAS SSI SOSA Sl Sloa lalala llololoOlÓK 


CHE E A A EE ACE E EEE CEC CA CACA 


ASOMO OSOS lalalala lalalala lalalala lo lalalojololololololok 


LET N=ASC(MID$(A$,1,1)) 
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6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
8370 
6380 
6390 
68400 
6410 
6420 
6430 
8440 
6450 
8460 
6470 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
8000 
8010 
8020 
8030 
8040 
8050 
8080 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
o 8160 
z 8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 


FOR J=1 TO N 
READ A * 
NEXT J 
FOR J=1 TO 8 
READ A 
LOCATE Y+J-1,X . 
IF A>=128 THEN LET A=A-128:PRINT CHR$(219);.:GOTO 6360 
PRINTS; 
1F A>=64 THEN LET A=A-64:PRINT CHR$(219);:GOTO 6380 
PRENT040S 
IF A>=32 THEN LET A=A-32:PRINT CHR$(219);:GOTO 6400 
PRINTS; . ¿ 
IF A>=16 THEN LET A=A-16:PRINT CHR$(219);:GOTO 6420 
PRINT " *; 
IF A>=8 THEN LET A=A-8:PRINT CER$(219);:GOTO 6440 
PRINT * ”; 
IF A>=4 THEN LET A=A-4:PRINT CHR$(219);:GOTO 6460 
ERUN dis 
IF A>=2 THEN LET A=A-2:PRINT CHR$(219);:GOTO 6480 
PRINTS 
IF A=1 THEN PRINT CHR$(219);:GOTO 6500 
PRINT " “; 
PRINT 
NEXT J 
LET X=X+8 
IF X>80 THEN LET X=1:LET Y=Y+8 
NEXT I 
RETURN 
REM 
REM MSI IOllllololkok 


REM * LINEAS DE DATA CON LA x 

REM * DEFINICION DE TODOS LOS x 

REM * CARACTERES. k d 
REM AMS SOS aldl aaa joo dok 

REM 

DATA 0,0,0,0,0,0,0,0 - REM 
DATA 24,24,24,24,24,0,24,0 : REM 
DATA 108,108,108,0,0,0,0,0 REM 
DATA 108,108,254,124,254, 108, 108,0 ; REM 
DATA 24,62,88,60,26,124,24,0 : REM 
DATA 0,99,102,12,24,51,99,0 : REM 
DATA 56,108,56,118,220,220,118,0 : REM 
DATA 24,24,48,0,0,0,0,0 : REM 
DATA 12,24,48,48,48,24,12,0 : REM 
DATA 48,24,12,12,12,24,48,0 : REM 
DATA 0,102,60,255,60,102,0,0 : REM 
DATA 0,24,24,126,24,24,0,0 : REM 
DATA 0,0,0,0,0,24,24,48 REM 
DATA 0,0,0,126,0,0,0,0 : REM 
DATA 0,0,0,0,0,24,24,0 : REM 
DATA 6,12,24,48,96,192,128,0 REM 
DATA 124,198,206,214,230,198,124,0 REM 
DATA 24,56,24,24,24,24,128,0 : REM 
DATA 60,102,6,60,96,102,126,0 : REM 
DATA 60,70,6,28,6,102,60,0 : REM 
DATA 24,56,88,152,254,24,60,0 : REM 
DATA 126,98,96,60,6,102,60,0 : REM 
DATA 60,102,98,124,102,102,60,0 : REM 
DATA 126,70,6,12,24,24,24,0 : REM 
DATA 60,102,102,60,102,102,60,0 : REM 
DATA 60,102,102,62,6,102,60,0 REM 
DATA 0,0,24,24,0,24,24,0 : REM 
DATA 0,0,24,24,0,24,24, 48 : REM 
DATA 12,24,48,96,48,24,12,0 REM 
DATA 0,0,1286,0,0,126,0,0 REM 
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ESPACIO 


0030042 0NrOos + 


HA... 


8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8600 
8610 
8620 
8630 
8640, 
8850 
8660 
8670 
8680 
8690 
8700 
8710 
8720 
8730 
8740 
8750 
8760 
8770 
8780 
8790 
8800 
8810 
8820 
8830 
8840 
8850 
8860 
8870 
8880 
8890 
8900 
8910 
8920 
8930 
8940 
8950 
8960 
8970 
8980 
8990 
9000 
9010 
9020 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


96, 48, 24,12,24,48,96,0 
60,102,6,12,24,0,24,0 
124,198,222,222,222,192,124,0 
24,60,102,102,126,102,102,0. 
252,102, 102,124, 102, 102,252,0 
680,102, 192,192,192,102,60,0 
248,108, 102,102, 102,108, 248,0 
254,98, 104,120, 104,98,254,0 
254, 98,104,120, 104,96,240,0 
60, 102, 192, 192,206, 198, 126,0 
102,102, 102, 126, 102,102, 102,0 
126, 24, 24, 24,24, 24,126,0 
30,12,12,12,204, 204, 120,0 
230,102,108, 120,108, 102, 230,0 
240, 96,96, 96,98, 102,254,0 
198,238, 254, 214, 214, 198,198,0 
198,230, 246, 222,206, 198, 198,0 
56,108,198, 198, 198, 108,56,0 
252,102,102, 120, 96,96, 240,0 
56,108, 198,198, 218,204,118,0 
252,102,102,124,108, 102, 226,0 
60, 102,96,60,6,102,60,0 
126,90, 24, 24, 24, 24,60,0 
102,102, 102,102, 102, 102,60, 0 
102,102, 102,102, 102,60,24,0 
198,198, 198,214,254,238,198,0 
198,108, 56,56, 108,198, 198,0 
102,102, 102,60, 24,24,60,0 
254,198, 140, 24,50, 102, 254,0 
60, 48, 48, 48, 48, 48,60,0 
192,96, 48,24,12,6,3,1 
60,12,12,12,12,12,60,0 
24,60,126,24,24,24,24,0 
0,0,0,0,0,0,0,255 

0, 48, 24,12,0,0,0,0 
0,0,120, 12, 124,204,118,0 
224,224,124,102,102,102,188,0 
0,0,60, 102,96, 102,60,0 

28,12, 124, 204, 204, 204, 118,0 
0,0,60,102,126,96,60,0 

28,54, 48, 120, 48, 48, 120,0 
0,0,62,102,102,62,6, 124 
224,96, 108, 118,102, 102,230,0 
24, 0,56, 24,24,24,60,0 
2,0,14,6,6,102,102,80 
224,96,102, 108,120, 108,230,0 
56, 24,24,24,24,24,60,0 
0,0,108, 254,214, 214, 198,0 
0,0,216, 102,102, 102,102,0 
0,0,60, 102,102, 102,60,0 

0, 0,220, 102,102, 124,96, 240 
0,0,118, 204, 204, 124, 12,30 
0,0,216,108,96,96,240,0 
0,0,60,96,60,6,124,0 

48, 48, 124, 48, 48,54, 28,0 

0,0, 102, 102,102, 102,62,0 
0,0,102,102, 102,60, 24,0 

0, 0,198,214,214,254,108,0 
0,0,198,108,56,108, 198,0 
0,0,102,102,102,62,6,124 
0,0,126,76,24,48,126,0 

14, 24,24,112,24,24,14,0 
24,24,24,24,24,24,24,0 
112,24, 24,14, 24, 24, 112,0 

118, 216,0,0,0,0,0,0 
204,51,204,51,204,51,204,51 
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TRUCOS Y RUTINAS BASICAS 


Fig. 1. Resultado de ejecutar el programa 1. 


Como siempre, para que el programa 
pueda funcionar en ordenadores distintos del 
IBM y compatibles, tendremos que hacer las 
siguientes modificaciones: 


COMMODORE 


6330 POKE 214, Y+J-1:POKE 211,X 

6340 IF A>=128 THEN LET A=A-128:PRINT 
CHR$(166);:GOTO 6360 

6360 IF A>=64 THEN LET A=A-64:PRINT 
CHR$(166);:GOTO 6380 

6380 IF A>=32 THEN LET A=A-32:PRINT 
CHR$(166);:GOTO 6400 

6400 IF A>=16 THEN LET A=A-16:PRINT 
CHR$(166);:GOTO 6420 

6420 IF A>=8 THEN LET A=A-8:PRINT CHR$(166);:GO- 
TO 6440 

6440 IF A> 4 THEN LET A=A-4:PRINT CHR$(166);:GO- 
TO 6460 

6460 IF A>=2 THEN LET A=A-2:PRINT 
CHR$(166)::GOTO 6480 

6480 IF A=1 THEN PRINT CHR$(166);:GOTO 6500 


SPECTRUM 


6250 LET N=CODE(A$(D) 

6330 PRINT AT Y+J-1,X; 

6340 IF A>=128 THEN LET A=A-128:PRINT 
CHR$(143);:GOTO 6360 

6360 IF A>=64 THEN LET A=A-64:PRINT 
CHR$(143);:GOTO 6380 

6380 IF A>=32 THEN LET A=A-32:PRINT 
CHR$(143);:GOTO 6400 

6400 IP A>=16 THEN LET A=A-16:PRINT 
CHR$(143);:GOTO 6420 

6420 IF A>=8 THEN LET A=A-8:PRINT CHR$(143);:GO- 
TO 6440 

6440 IF A>=4 THEN LET A=A-4:PRINT CHR$(143);:GO- 
TO 6460 

6460 IF A>=2 THEN LET A=A-2:PRINT CHR$(143);:GO- 
TO 6480 

6480 IF A=1 THEN PRINT CHR$(143);:GOTO 6500 


AMSTRAD 


6330 LOCATE X, Y+J]-1 
6340 IF A>=128 THEN LET A=A-128:PRINT 
CHR$(143);:GOTO 6360 


6360 IF A>=64 THEN LET A=A-64:PRINT 
CHR$(143);:GOTO 6380 

6380 IF A>=32 THEN LET A=A-32:PRINT 
CHR$(143);:GOTO 6400 

6400 IF A>=16 THEN LET A=A-16:PRINT 
CHR$(143);:GOTO 6420 

6420 IF A>=8 THEN LET A=A-8:PRINT CHR$(143);:GO- 
TO 6440 

6440 IF A>=4 THEN LET A=A-4:PRINT CHR$(143);:GO- 
TO 6460 

6460 IF A>=2 THEN LET A=A-2:PRINT CHR$(143);:GO- 
TO 6480 

6480 IF A=1 THEN PRINT CHR$(143);:GOTO 6500 


MSX 
6330 LOCATE X,Y+]-1 


Una vez que hemos metido el progra- 
ma, como es muy fácil haberse equivocado al 
introducir las líneas DATA, tenemos que com- 
probar que todos los números son correctos. 
Para ello os proponemos introducir el progra- 
ma 2. Con él podremos ver uno a uno todos los 
caracteres que hemos definido y apreciar si 
alguno de ellos no está definido correctamen- 
te. 


100 REM MOSSOS OI oK 
110 REM * PROGRAMA DEMO PARA VER QUE x* 
120 REM * LA TABLA DE CARACTERES HA *X 
130 REM * SIDO INTRODUCIDA CORRECTA- x* 


140 REM * MENTE. * 
150 REM Ra SSOSlo lalalala olaaa lalalala lalola jojololok 
160 REM 

170 FOR C=32 TO 127 

180 CLS 


190 LET A$=CHR$(C) 

200 PRINT "CARACTER No ";C 

210 PRINT "CON FORMA = *";A$;"*" 
220 LET X=1 

230.  LET Y=10 

240 GOSUB 360 

250 PRINT 

260 PRINT “PULSA ”P? PARA PARAR" . 
270 PRINT “OTRA PARA CONTINUAR" 
280 LET A$=INKEYS 

290 IF A$="" THEN GOTO 280 

300 IF A$="P" OR A$="p" THEN STOP 
310 NEXT € 

320 CLS 

330 PRINT "YA HEMOS VISTO TODOS” 

340 PRINT "LOS CARACTERES. " 

350 END - 


Para que este programa funcione en el 
COMMODORE hay que realizar las siguientes 
modificaciones: 


180 PRINT CHR$(147) 
280 GET A$ 
320 PRINT CHR$(147) 


En el SPECTRUM hay que cambiar la lí- 
nea 350 por: 


350 STOP 


Si ya hemos comprobado que hemos in- 
troducido el programa sin errores o hemos 
corregido todos los errores que había, pode- 
mos ejecutar el programa 3 para experimen- 
tar un poco y ver cómo utilizar esta rutina. 


100 REM asaadaoida aaa ojolalojoloiololojojook 
110 REM * PROGRAMA DEMO PARA EJEJUTAR x* 
120 REM * LA RUTINA DE LETRAS GRANDES x* 
130 REM ASROCK 
140 REM 

150 CLS 

160 INPUT "MENSAJE = ";A$ 

170 INPUT “COLUMNA = ";X 

180 INPUT "FILA == Y 

190 PRINT 

200 PRINT "PULSA UNA TECLA PARA EMPEZAR" 
210 LET B$=INKEYS 

220 IF B$="" THEN GOTO 210 

230 CLS 

240 GOSUB 6000 


250 PRINT 

260 PRINT "PULSA UNA TECLA PARA” 
270 PRINT “INTRODUCIR OTRO MENSAJE" 
280 LET B$=INKEY$ 

290 IF B$="" THEN GOTO 280 

300 RUN 


Para que este tercer programa se eje- 
cute en el COMMODORE sin problemas hay 
que variar las siguientes líneas: 


150 PRINT CHR$(147) 

210 GET B$ 

230 PRINT CHRS(147) ' 
280 GET B$ . 


El funcionamiento del programa no lo 
veremos hasta el próximo tomo, debido 'a su 
extensión, pero vamos a ver algunas de las 
modificaciones que se le pueden hacer a este 
programa para que imprima las letras con dis- 
tintos formatos y de distintas formas. 

El programa 4, que aparece a continuación, 
nos permitirá imprimir las letras en inverso. 
Esto es, en vez de dibujar la letra, dibujare- 
mos sus contornos. 


6310 FOR J=1 TO 8 

6320 READ A 

6330 LOCATE Y+J-1,X 

6340 IF A>=128 THEN LET A=A-128:PRINT ” “;:GOTO 6360 
6350 PRINT CHR$(219); 

6360 IF A>=64 THEN LET A=A-64:PRINT “ ”;:GOTO 6380 
6370 PRINT CHR$(219); 

6380 IF A>=32 THEN LET A=A-32:PRINT " ";:GOTO 6400 
6390 PRINT CHR$(219); 

6400 IF A>=16 THEN LET A=A-16:PRINT " ";:GOTO 6420 
6410 PRINT CHR$(219); 

6420 IF A>=8 THEN LET A=A-8:PRINT " ";:GOTO 6440 
6430 PRINT CHR$(219); 

6440 IF A>=4 THEN LET A=A-4:PRINT " “;:GOTO 6460 
6450 PRINT CHR$(219); o 

6460 IF A>=2 THEN LET A=A-2:PRINT " ";:GOTO 6480 
6470 PRINT CHR$(219); 

6480 IF A=1 THEN PRINT " “;:GOTO 6500 

6490 PRINT CHR$(219); 

6500 PRINT 

6510 NEXT J 


Fig. 2. Podemos hacer que las letras aparezcan en inverso. 
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Las modificaciones que hay que hacerle a 
este programa para que funcione en todos los 
ordenadores son: 


COMMODORE 


6330 POKE 214, Y+J]-1:POKE 211,X 
6350 PRINT CHR$(166); 
6370 PRINT CHR$(166); 
6390 PRINT CHR$(166); 
6410 PRINT CHR$(166); 
6430 PRINT CHR$(166); 


TRUCOS Y RUTINAS BASICAS 


6450 PRINT CHR$(160); 
6470 PRINT CHR$(160); 
6490 PRINT CHR$(160); 


SPECTRUM 


6330 PRINT AT Y+J-1,X; 
6350 PRINT CHR$(143); 
6370 PRINT CHR$(143); 
6390 PRINT CHR$(143); 
6410 PRINT CHR$(143); 
6430 PRINT CHR$(143); 
6450 PRINT CHR$(143); 
6470 PRINT CHR$(143); 
6490 PRINT CHR$(143); 


AMSTRAD 


6330 LOCATE X,Y+J-1 
6350 PRINT CHR$(143); 


FOR J=1 TO 8 
READ A 
LOCATE Y+J-1,X 


6370 PRINT CHR$(143); 
6390 PRINT CHR$(143); 
6410 PRINT CHR$(143); 
6430 PRINT CHR$(143); 
6450 PRINT CHR$(143); 
6470 PRINT CHR$(143); 
6490 PRINT CHR$(143); 


MSX 
6330 LOCATE X,Y+]-1 


Si queremos que, en vez de dibujar las 
letras con caracteres totalmente rectangula- 
res y rellenos de forma, éstas se dibujen utili- 
zando otro carácter (por ejemplo, un asteris- 
co), podemos variar el programa para que lo 
haga. El resultado (con asteriscos) lo podemos 
ver en el programa 5: 


IF A>=128 THEN LET A=A-128:PRINT "*x";:GOTO 6360 


PRINI= > 


IF A>=64 THEN LET A-A-64:PRINT "x*";:GOTO 6380 


ERIN 


IF A>=32 THEN LET A=A-32:PRINT "*x";:GOTO 6400 


ERINDS md s 


IF A>=16 THEN LET A=A-16:PRINT "x";:GOTO 6420 


PRINT 3142; 


IF A>=8 THEN LET- A=A-8:PRINT "x*" 


BRIN TA A> 


1 
¡GOTO 6440 


IF A>=4 THEN LET A=A-4:PRINT "*";:GOTO 6460 


BRINAA ES 


IF A>=2 THEN LET A=A-2:PRINT "*";:GOTO 6480 


PRINTS 
IF A=1 THEN PRINT 
PRINT * *; 
PRINT 
NEXT J 


Fig. 3. Podemos cambiar el carácter que forma las letras. 


Las únicas modificaciones que hay que 


hacer son las siguientes: 


mo 
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"3:GOTO 6500 


COMMODORE 

6330 POKE 214,Y+]-1:POKE 211,X 
SPECTRUM 

6330 PRINT AT Y+J-1,X; 
AMSTRAD Y MSX 

6330 LOCATE X,Y+]-1 


Por fin, si lo que queremos es dibujar 
las letras con el propio carácter que represen- 
tan (ver figura 4), podemos variar el progra- 
ma que lo haga de esta forma. El resultado lo 
vemos en el programa 6: 


6230 FOR I=1 TO LEN(AS$) 


6240. RESTORE 9010 

6250 LET N=ASC(MID$(A$, 1,1)) 

6260 LET B$=MID3(A$, 1,1) 

6270 LET N=N-32 

68280 LET N=N*8 

6290 FOR J=1 TO N 

6300 READ A 

6310 NEXT J 

6320 FOR J=1 TO 8 

8330 READ A 

6340 LOCATE Y+J-1,X 

6350 IF A>=128 THEN LET A=A-128:PRINT B$;:GOTO 6370 
6360 PRINT " *; . 
6370 IF A>=64 THEN LET A=A-84:PRINT B$;:GOTO 6390 y 
6380 PRINT “ *; 

6390 IF A>=32 THEN LET A=A-32:PRINT B$;:GOTO 6410 
6400 PRINT ” “; 

6410 IF A>=16 THEN LET A=A-16:PRINT B$;:GOTO 6430 
6420 PRINT " "; 

6430 IF A>=8 THEN LET A=A-8:PRINT B$;:GOTO 6450 
6440 PRINT " ”; 

6450 IF A>=4 TBEN LET A=A-4:PRINT B$;:GOTO 6470 
6460 PRINT " “; 

6470 IF A>=2 THEN LET A=A-2:PRINT B$;:GOTO 6490 
8480 PRINT " "“; E 

68490 y IF A=1 THEN PRINT B$;:GOTO 6510 

6500 PRINT *" “; 

6510 PRINT 

6520 NEXT J 

8530 LET X=X+8 

6540 IF X>80 THEN LET X=1:LET Y-Y+8 

6550 NEXT 1 


6560 RETURN 


Fig. 4. Cada letra está formada por la misma letra que repre- 
senta. 


Las modificaciones que hay que reali- 
zar son las siguientes: 


6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 


REM x* 
REM xk 
REM * 


<<< IMPRESION DE CARACTERES GIGANTES >>> 


* VARIABLES QUE HAY QUE PASARLE A LA RUTINA 


k A$ = MENSAJE A IMPRIMIR 
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COMMODORE 
6340 POKE 214,Y+]-1:POKE 211,X 
SPECTRUM 


6250 LET N=CODE(MID$(A$0) 
6260 LET B$=A$(D) 
6340 PRINT AT Y+J-1,X 


AMSTRAD Y MSX 
6340 LOCATE X,Y+]-1 


Como se puede apeciar, al ejecutar el 
programa en ciertas ocasiones resulta dema- 
siado lento. Por ello, hemos preparado otro 
que es más rápido pero que necesita más me- 
moria para poder funcionar: 


EEES 


XK A XA A>——-k XA 


TRUCOS Y RUTINAS BASICAS 


6080 REM * X = COLUMNA DONDE EMPEZARA EL MESAJE * 
6090 REM * Y = FILA DONDE SE COLOCARA EL MESAJE * 
6100 REM * k 
6110 REM * VARIABLES USADAS POR LA RUTINA x 
SALIR o A e E E e k 
6130 REM x * 
6140 REM * N = POSICION DE LA DEFINICION DEL CARACTER * 
8150 REM * A = VARIABLE QUE RECOGE EL DATO DE LA MATRIZ k 
6160 REM x 1 = VARIABLE INDICE DEL PRIMER BUCLE k 
6170 REM * J = VARIABLE INDICE DEL SEGUNDO BUCLE * 
6180 REM * N()= MATRIZ QUE ALMACENA LAS DEFINICIONES * 
6190 REM * k 
6200 REM * LA RUTINA NO DEVUELVE NINGUN VALOR * 
6210 REM * k 
6220 REM AdaSdaSiOadaSaldOlaia allioli lolo lalalala jolla lalalala jolla lalololok 
6230 REM 
6240 REM xx*x* LECTURA DE LAS DATAS *xx 
6250 REM 
6260 DIM D(96,8) 

6270 FOR I=1 TO 96 
6280 FOR J=1 TO 8 
6290 READ D(1,J) 
6300 NEXT J 
6310 NEXT 1 
6320 RETURN 
7000 REM 
7010 REM xx*x* RUTINA PRINCIPAL x**x 
7020 REM 
7030 FOR I=1 TO LEN(A$) 
7040 LET N=ASC(MID$(AS,1,1)) 
7050  LET N=N-31 
7060 FOR J=1 TO 8 
7070 LET A=D(N,J) 
7080 LOCATE Y+J-1,X ' 
7090 IF A>=128 THEN LET A=A-128:PRINT CHR$(219);:GOTO 7110 
7100 PRINT " ”; 
7110 IF A>=64 THEN LET A=A-64:PRINT CHR$(219);:GOTO 7130 
7120 PRINT ” ”; 
7130 IF A>=32 THEN LET A=A-32:PRINT CHR$(219);:GOTO 7150 
7140 PRINT " *; 
7150 IF A>=16 THEN LET A=A-16:PRINT CHR$(219);:GOTO 7170 
7160 PRINT " *; 
7170 IF A>=8 THEN LET A=A-8:PRINT CHR$(219);:GOTO 7190 
7180 PRINT " *; 
7190 IF A>=4 THEN LET A=A-4:PRINT CHR$(219);:GOTO 7210 
, 7200 PRINT " "; 

., 7210 IF A>=2 THEN LET A=A-2:PRINT CHR$(219);:GOTO 7230 
7220 PRINT " *; 

7230 IF A=1 THEN PRINT CHR$(219);fGOTO 7250 
7240 PRINT 55 me : 
7250 PRINT 


7260 NEXT J 

7270 LET X=X+8 

7280 IF X>80 THEN LET X=1:LET Y=Y+8 

7290 NEXT I 

7300 RETURN 

8000 REM 

8010 REM asaSdSOIO SOS ISO SjdlSlS ISSO kk : 
8020 REM * LINEAS DE DATA CON LA x 

8030 REM * DEFINICION DE TODOS LOS x 


8040 REM * CARACTERES. k o 
8050 REM aaooOloO SIRIO IOIDIOIOIRJOIOJOK 

8060 REM 

8070 DATA 0,0,0,0,0,0,0,0 : REM ESPACIO 

8080 DATA 24,24,24,24,24,0,24,0 REM ! 

8090 DATA 108,108,108,0,0,0,0,0 REM ” 
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8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
8460 
8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 
8550 
8560 
8570 
8580 
8590 
8600 
8610 
8620 
8630 
8640 
8650 
8660 
8670 
8680 
8690 
8700 
8710 
8720 
8730 
8740 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


108, 108,254, 124,254,108, 108,0 
24,62,88,60,26,124,24,0 
0,99,102,12,24,51,99,0 

56, 108,56, 118, 220,220, 118,0 
24,24, 48,0,0,0,0,0 

12,24, 48,48, 48,24,12,0 
48,24,12,12,12,24,48,0 
0,102,60,255,60, 102, 0,0 
0,24,24,126,24,24,0,0 
0,0,0,0,0,24,24, 48 
0,0,0,126,0,0,0,0 
0,0,0,0,0,24,24,0 
6,12,24, 48,96, 192,128,0 

124, 198,206,214, 230,198, 124,0 
24,56,24,24,24,24,126,0 
60,102,6,60,96,102,126,0 
60,70,6,28,6,102,80,0 
24,56,88,152,254,24,60,0 
126,98,96,60,6,102,60,0 

60, 102,96, 124,102,102,60,0 
126,70,6,12,24,24,24,0 
60,102, 102,60,102, 102,60,0 
60,102, 102,62,6,102,60,0 
0,0,24,24,0,24,24,0 
0,0,24,24,0,24,24, 48 

12,24, 48,96, 48,24,12,0 
0,0,126,0,0,126,0,0 

96, 48,24,12,24,48,96,0 
60,102,6,12,24,0,24,0 
124,198,222,222,222,192,124,0 
24,60,102,102,126,102,102,0 
252,102, 102,124,102,102,252,0 
60,102, 192,192,192, 102,60, 0 
248,108, 102,102,102, 108, 248,0 
254,98, 104,120, 104,98,254,0 
254,98,104, 120, 104,96,240,0 
60,102, 192,192,206, 198,126, 0 
102,102, 102, 126,102, 102,102,0 
126,24,24,24,24,24,126,0 
30,12,12,12,204,204,120,0 
230, 102,108, 120,108, 102,230, 0 
240,96,96,96,98,102,254,0 
198, 238,254,214,214,198,198,0 
198,230, 246, 228,206, 198, 198,0 
56,108, 198,198, 198,108,56,0 
252,102,102,120,96,96,240,0 
56,108, 198, 198, 218,204,118,0 
252,102,102, 124, 108, 102,226, 0 
60,102, 96,60,6,102,60,0 
126,90, 24,24,24,24,60,0 
102,102, 102, 102,102,102,60,0 
102, 102,102,102,102,60,24,0 
198, 198,198,214,254,238,198,0 
198, 108,56,56,108, 198, 198,0 
102, 102,102, 60,24,24,60,0 
254, 198, 140,24,50, 102, 254,0 
80, 48, 48, 48, 48, 48, 60,0 
192,96, 48,24,12,6,3,1 
60,12,12,12,12,12,60,0 
24,60,126,24,24,24,24,0 
0,0,0,0,0,0,0,255 

0, 48,24,12,0,0,0,0 

0,0, 120,12,124,204,118,0 
224,224,124,102, 102, 102,188, 0 
0, 0,60, 102,96,102,60,0 


31 


00 300p0NnNros +: 


¡DP ONE SGAOANDO VOZ RP ACA AmNuUOw> OY mAs” 


0cp 


TRUCOS Y RUTINAS BASICAS 


8750 DATA 28,12,124,204,204,204,118,0 ¡REM d 
8760 DATA 0,0,60,102,126,96,60,0 ¡REM e 
8770 DATA 28,54,48,120, 48, 48, 120,0 ¡REM f 
8780 DATA 0,0,62,102,102,62,6,124 ¡REM g 
8790 DATA 224,96,108,118,102,102,230,0 : REM h 
8800 DATA 24,0,56,24,24,24,60,0 : REM i 
8810 DATA 2,0,14,6,6,102,102,60 : REM j 
8820 DATA 224,96,102,108,120,108,230,0 : REM k 
8830 DATA 56,24,24,24,24,24,60,0 : REM 1 
8840 DATA 0,0,108,254, 214,214, 198,0 ¡REM m 
8850 DATA 0,0,216,102,102,102,102,0 ¡REM n 
8860 DATA 0,0,60,102,102,102,60,0 ¡REM o 
8870 DATA 0,0,220,102,102, 124, 96,240 ¡REM p 
8880 DATA 0,0,118,204,204, 124, 12,30 : REM q 
8890 DATA 0,0,216,108,96,96,240,0 ¡REM r 
8900 DATA 0,0,60,96,60,6,124,0 ¡REM s 
8910 DATA 48,48, 124, 48, 48,54,28,0 ¡REM t 
8920 DATA 0,0,102,102,102,102,62,0 ¡REM u 
8930 DATA 0,0,102,102,102,60,24,0 :REM v 
8940 DATA 0,0,198,214,214,254, 108,0 ¡REM w 
8950 DATA 0,0,198,108,56,108, 198,0 ¡REM x 
8960 DATA 0,0,102,102,102,62,6,124 : REM y 
8970 DATA 0,0,126,76,24,48,126,0 ¡REM z 
: 8980 DATA 14,24,24,112,24,24,14,0 : REM (£ 
8990 DATA 24,24,24,24,24,24,24,0 ¡REM ; 
9000 DATA 112,24,24,14,24,24,112,0 ¡REM ) 
9010 DATA 118,216,0,0,0,0,0,0 ¡REM 
9020 DATA 204,51,204,51,204,51,204,51 : REM 


Las modificaciones son las mismas que 
hay en el programa 1, pero en líneas distintas. 
El lector no tiene por qué tener ninguna difi- 
cultad al realizarlas él solo. 

Este último programa es más largo por- 
que almacena la definición de los caracteres 
en una tabla. Por ello, antes de ejecutar la ru- 
tina para que imprima algún mensaje, hay que 
inicializar la rutina. Esto se consigue haciendo 
una llamada a la línea 6000. Esta llamada sólo 
hay que hacerla una vez y una vez hecha po- 
demos llamar tedas las veces que queramos a 
la rutina de impresión que se encuentra a par- 
tir de la línea 7000. 
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Si queremos utilizar el programa 3 en 
conjunción con esta última rutina, tendremos 
que cambiar las líneas 240 y 300 por: 


240 GOSUB 7000 
300 GOTO 150 


e intercalar las líneas: 


143 PRINT "ESPERE UN MOMENTO” 
145 GOSUB 6000 


En el tomo siguiente veremos el funcio- 
namiento de estas rutinas y de algunas que 
nos permitirán hacer nuevos efectos con las le- 
tras. 


EL TALLER DEL HARDWARE 


Generador de señales 
de baja frecuencia 


A generación de señales de 
prueba de equipos, em- 
pleando el circuito integra- 
do LM555, se presentó en 
uno de los primeros tomos, 
como herramienta impres- 
cindible del taller de hard- 
ware. Las señales genera- 
das eran de forma rectangular, con la posibi- 
lidad de controlar la frecuencia, el ancho y la 
amplitud del pulso. Conviene disponer de un 
generador de señales más variadas, para ana- 
lizar el comportamiento de los sistemas en 
condiciones más reales. 

En el tomo anterior se ha descrito un 
sistema para poder analizar equipos de audio- 
frecuencia de forma automática, utilizando el 
ordenador personal y algunos dispositivos adi- 
cionales para generar una señal y medir la 
respuesta del equipo ensayado. El componen- 
te más importante utilizado era un oscilador 
controlado por tensión en un solo circuito in- 
tegrado. Este componente presenta un gran 
interés por las muchas aplicaciones en que 
puede utilizarse. 

Vamos a describir otras aplicaciones 
del circuito ICL8038 como herramienta del ta- 
ller de hardware y que podremos utilizar de 
forma autónoma o en conexión con el ordena- 
dor personal, para realizar 'ensayos en nues- 
tros diseños, cuando las señales estén com- 
prendidas en el rango de frecuencias que 
pueden generarse con dicho circuito. 

Empezaremos con una descripción de- 
tallada del circuito, siguiendo a continuación 
con un esquema práctico de generador de se- 
ñales de baja frecuencia que lo utiliza como 
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pS 


componente principal. Por último, se presen- 
tarán otros circuitos alternativos para la gene- 
ración de señales senoidales, para poder cali- 
brar las señales producidas por el equipo di- 
señado. 


Circuito 1CL8038 


Es un circuito muy popular para la ge- 
neración de señales de referencia, por la fa- 
cilidad con que se pueden controlar los pará- 
metros y por la posibilidad de disponer simul- 
táneamente de salidas de tipo rectangular, 
triangular y senoidal. 


CONVERTIDOR 


Fig. 1. Esquema de bloques del 8038. 


El esquema recuerda al del circuito 
LM855, por la forma en que se obtiene la se- 
ñal en rampa y la comparación con los niveles 
de referencia. 

El funcionamiento básico es el siguiente: 

Supongamos que se parte de una situa- 
ción en la que el conmutador K se encuentra 
en la posición indicada en el esquema, es de- 
cir, abierto. La fuente de corriente de la parte 
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superior cargará el condensador C a intensi- 
dad constante 1,. La tensión en el condensador 
crecerá de forma lineal, pues en un conden- 
sador la tensión es igual a la integral de la 
corriente, dividida por la capacidad. Es decir, 
la tensión es proporcional a la carga acumula- 
da. Si en un momento dado se cierra el con- 
mutador, las intensidades se modificarán se- 
gún los valores de las fuentes de corriente. 
Con los valores indicados en el esquema, la 
nueva corriente resultante y que regulará la 
descarga del condensador será la diferencia 
entre las dos corrientes. Al ser también cons- 
tante la tensión de descarga será también de 
forma lineal. Así podemos generar una señal 
triangular controlando los instantes de conmu- 
tación del conmutador K. 


Vo 


Va 


K ABIERTO K CERRADO 


Fig. 2. Formas de onda en el circuito. 


Para hacer el proceso operativo es ne- 
cesario realizar.la conmutación de forma auto- 
mática, mediante las señales suministradas 
por los comparadores con las señales de refe- 
rencia V, y V,. Estos comparadores COMPI, y 
COMP2 controlan la activación y desactiva- 
ción del biestable FF, que es quien controla el 
conmutador K. La salida de COMPl determi- 
nada por la comparación con V,, establece la 
apertura del conmutador K, mientras que la 
salida de COMPZ establece su cierre. El con- 
mutador será realmente un transistor que pasa 
de estado de corte, cuando está abierto, a sa- 
turación, cuando está cerrado. 

Por tanto, disponemos de los siguiente 
parámetros sobre los que influir para contro- 
lar la oscilación: 


— Las corrientes de los generadores 1, 


eL. 
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— Los niveles de comparación V, y V,, 
— El condensador C. 


— La variación de estos parámetros de- 
termina la forma de empleo del circuito en 
cada caso, pero fácilmente se ve qué variacio- 
nes continuas de las corrientes y tensiones se 
corresponderán con variaciones correspon- 
dientes de los períodos de oscilación, mientras 
que variaciones por saltos discretos del con- 
densador causarán saltos proporcionales a di- 
cho salto. 

Las señales directamente disponibles 
son de tipo triangular y rectangular, tomándo- 
se de los puntos indicados y amplificándose 
para su salida. 


Generador de señal senoidal 


La obtención de la señal senoidal es 
algo más complejo. Realmente no es una señal 
senoidal lo que se genera, sino una aproxima- 
ción por tramos a partir de una señal triangu- 
lar, Esto puede parecer sorprendente, pero es 
muy utilizado en los equipos electrónicos 
cuando se necesita una respuesta no lineal con 
relación a una magnitud: se linealiza por tra- 
mos. Cuanto más pequeño sea el tramo tanto 
mayor será la aproximación y, por tanto, la fi- 
delidad de la señal generada con relación a la 
señal teórica. Veamos cómo puede realizarse: 


Fig. 3. Señal no lineal por tramos. 


La señal de entrada ha de ser triangu- 
lar para la generación de señales variables 
con el tiempo, pero puede ser de cualquier 
tipo en general para conversión con una esca- 
la no lineal. Las tensiones de las fuentes que 
se indican en el circuito las suponemos idea- 
les, así como también los diodos, que presen- 


tan un circuito abierto mientras la tensión apli- 
cada a sus bornas sea negativa, y se compor- 
tan como un cortocircuito si la tensión aplica- 
da es positiva. 

Mientras la señal de entrada sea infe- 
rior a V,, todos los diodos estarán al corte, 
pues la tensión en sus bornas es negativa. Para 
tensiones de entrada por encima de V,, el dio- 
do D, conducirá, con lo que la resistencia del 
circuito de salida será menor, reduciéndose la 
relación entre la tensión de entrada y la de sa- 
lida. Para tensiones inferiores a V, la señal de 
salida será: 


Vs = Ve-RB/(RA + RB) 


Para tensiones superiores a V, y, por 
tanto, conduciendo D, la resistencia de salida 
será la equivalente a RB en paralelo con R,, 
siendo consecuentemente menor la pendien- 
te de la señal de salida. 

Igualmente para los otros valores de las 
tensiones de ajuste se modificará la pendien- 
te de la señal de salida. Lo mismo se puede ha- 
cer para tensiones negativas. El circuito se 
suele hacer simétrico, con los diodos puestos 
en conexión opuesta a los indicados en la fi- 
gura y las tensiones de referencia serán nega- 
tivas. 

v 


Fig. 4. Circuito de generación de señal no lineal. 


Los diodos reales no se comportan 
como conmutadores perfectos, por lo que la 
transición de no conducción a conducción se 
efectúa de manera suave, y, en consecuencia, 
la salida será en realidad una curva con pe- 
queñas transiciones en los puntos de cruce. Las 
tensiones de referencia pueden ser genera- 
das mediante divisores resistivos, siempre 
que la corriente consumida sea muy baja. En 
el circuito real el esquema es algo más com- 
plicado, pues se utilizan transistores en segui- 
dor de emisor, para presentar una gran impe- 
dancia de entrada al circuito de tensiones de 
referencia, generado por resistencias. En la fi- 
gura se muestra el esquema real de la parte 
positiva del generador de senoide. La parte 
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negativa es la simétrica, utilizando los mismos 
valores de resistencias y los transistores de 
tipo complementario a los usados en la parte 
positiva, es decir, donde había un transistor de 
tipo PNP se coloca uno de tipo NPN, y al con- 
trario. En paralelo con las resistencias extre- 
mas de la red resistiva de referencias puede 
colocarse una resistencia ajustable, con obje- 
to de mejorar la simetría de la señal senoidal. 
+Voc 


33K 33K 33K 33K ALA SECCION 
NEGATIVA 


Fig. 5. Generación de senoide a partir de triangular. 


Es interesante conocer por qué se ge- 
nera la señal senoidal de esta manera tan com- 
plicada, existiendo otros medios para obtener- 
la que requieren menos componentes. La ra- 
zón principal es que, por un lado, la genera- 
ción de una señal de baja frecuencia senoidal 
requiere componentes voluminosos para una 
constante de tiempo elevada y, lo que es peor, 
requiere más de uno y de igual valor, dentro 
de un margen muy reducido de tolerancia. 
Por otro lado, la estabilidad de los circuitos 
montados depende de la sensibilidad a la tem- 
peratura principalmente y, por tanto, es difícil 
garantizarla. Utilizando un sistema digital, 
cuya estabilidad podría garantizarse median- 
te señales de referencia generadas con cris- 
tales de cuarzo, puede obtenerse la señal 
triangular y de ella deducirse la aproximación 
de señal senoidal, con la precisión deseada. 


7 Fuentes de corriente 


Las fuentes de corriente se realizan con 
transistores controlados por resistencias, que 
han de ser conectadas a las patillas del circui- 
to, pero por ser accesible la entrada del ge- 
nerador, podremos igualmente emplear cual- 
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quier circuito que la genere y, por tanto, con- 
trolar mediante un equipo externo las carac- 
terísticas de la corriente de entrada. Esto per- 
mite controlar la frecuencia de oscilación con 
tensión, tal como hicimos en el sistema descri- 
to en el tomo anterior. 


Fig. 6. Fuentes de corriente. 


. 


Comparadores 


Los comparadores están realizados me- 
diante amplificadores diferenciales con tran- 
sistores. Los niveles de comparación son fijos, 
obtenidos mediante un divisor resistivo. Está 
realizado con tres resistencias iguales, que 
permiten obtener las dos tensiones de refe- 
rencia de 1/3 y 2/3 de la tensión de alimenta- 
ción. Esto permite una gran inmunidad a las 
variaciones de la tensión de alimentación, 
pues lo que realmente se utiliza es el valor re- 
lativo de los puntos de conmutación. 
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Fig. 7. Comparadores. 


Biestable 


; 4 4 A 
El biestable de salida se realiza me- 
diante transistores conectados con las bases 
cruzadas con los colectores opuestos. 


Amplificadores de salida 


Las señales de salida se obtienen con 
amplificadores con transistores complementa- 
rios para la señal triangular y en colector 
abierto para la salida rectangular, por lo que 
será necesario conectar una resistencia de 
carga conectada la tensión de alimentación. 

Las señales de salida son proporciona- 
les a la tensión de alimentación de acuerdo 
con los siguientes coeficientes: 


— Señal rectangular = 0,90. 
— Señal triangular = 0,33. 
— Señal senoidal = 0,22. 


Las amplitudes de salida son fijas, con 
una impedancia de salida entre 200 ohms y 2 
Kohms. Debe utilizarse amplificador externo 
para garantizar la estabilidad. 


Alimentación 


La alimentación del circuito puede rea- 
lizarse tanto de manera equilibrada, con ten- 
siones positiva y negativa, como con tensión 
positiva y masa. En el primer caso, las señales 
de salida serán equilibradas respecto a la 
masa, mientras que con tensión positiva las se- 
ñales triangular y senoidal resultan centradas 
respecto al valor medio de la tensión de ali- 
mentación. 

El valor máximo de tensión de alimen- 
tación es de 30 voltios para tensión con refe- 
rencia a masa y de + 18 voltios para alimen- 
tación equilibrada. El valor mínimo de alimen- 
tación es del orden de 10 voltios o + 5 para ali- 
mentación diferencial. Para nuestros equipos 
utilizaremos las tensiones de + 12 que dispo- 
nemos en el ordenador o en la fuente de ali- 
mentación de ampliación, Existen al menos 
cinco versiones del circuito integrado según 
el margen de temperaturas en que pueden 
trabajar y la estabilidad garantizada. Los de 
tipo comercial llevan coma sufijo las letras CC, 
BC y AC y los de tipo militar BM y AM. El mar- 
gen de temperatura de los primeros es de 0 a 
70* C y el de los segundos de -55” a 125". 


ICL 8038 


Fig. 8. Distribución de patillas. 


Generador de señales práctico 


Utilizando el circuito descrito y ya em- 
pleado en el tomo anterior, vamos a realizar 
un equipo que puede utilizarse de forma au- 
tónoma como instrumento del taller, 

El generador de señales más simple re- 
quiere un número muy reducido de compo- 
nentes, según se muestra en la figura. 

La selección de la gama de frecuencias 
a generar se efectúa mediante un conmutador 
rotativo que conecta un condensador diferen- 
te para cada rango. La variación fina de fre- 
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1 yuF 


100 yF 


Fig. 9. Generador sencillo. 


cuencia se efectúa mediante la resistencia va- 
riable R. El límite superior de frecuencia se 
fija por la resistencia fija colocada en serie con 
la resistencia variable. 

En este esquema simple se han conec- 
tado las patillas 4 y 5 juntas, con lo que se pier- 
de la posibilidad de ajuste de simetría de la 
señal. 

El ajuste de distorsión, controlable a tra- 
vés de la patilla 12, se deja en posición fija, de 
acuerdo con el valor recomendado por el fa- 
bricante. En cualquier caso, el ajuste debería 
hacerse por comparación con una señal senoi- 
dal de referencia muy precisa, o mediante un 
distorsímetro, que es un aparato que resta una 
señal senoidal muy pura y de igual frecuen- 
cia que la de medida, y da como valor de la 
distorsión el valor eficaz de la diferencia. Nos 
conformaremos con el valor indicado, 

La frecuencia de oscilación viene fijada 
por la fórmula: 


F=0,15/R:C 


La frecuencia resultará en Hz para los 
valores de resistencia en ohmios y de los con- 
densadores en faradios. Los condensadores se 
elegirán en múltiplos de 10, para saltar una 
década en cada posición del conmutador ro- 
tativo. La resistencia variable ha de ser lo más 
lineal posible y de valor 10 veces el de la re- 
sistencia límite, Puede incluso tomarse un 
poco mayor para que el margen cubierto en 
cada escalón sea de l a 11, por ejemplo. 


EL TALLER DEL HARDWARE 


Puede ajustarse la simetría si se separa 
la conexión de las entradas de los generado- 
res de corriente, de acuerdo con el esquema 
de la figura. 


Fig. 10. Ajuste de simetría. 


Generador de una sola banda 


Es necesario a veces disponer de un 
generador que cubra un amplio margen de 
frecuencias de forma continua. Mediante el 
esquema de la figura puede verse cómo utili- 
zando la entrada de tensión puede generarse 
toda la gama de frecuencias de audio. 


Fig. 11. Generador de audiofrecuencia de una sola banda. 


Este circuito puede presentar cierta 
distorsión en la parte baja de frecuencias, 
pues no es posible el ajuste completo de la si- 
metría de los generadores de corriente. Se in- 
cluye la resistencia de ajuste para reducirlo al 
mínimo. 


Circuitos de salida 


Para poder alimentar equipos a ensayar 
de tipo general es necesrio amplificar las se- 
ñales de salida. Para frecuencias bajas un am- 
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plificador basado en operacionales es sufi- 
ciente para obtener el nivel necesario. Se le 
añade un potenciómetro para poder ajustar de 
forma continua el nivel de salida. A las fre- 
cuencias más elevadas puede aparecer el 
efecto de limitación en la rampa de subida del 
amplificador. Puede subsanarse el problema 
con un sencillo amplificador en seguidor de 
emisor, que presenta baja impedancia de sa- 
lida. 


Fig. 12. Amplificador de salida. 


Conexión al ordenador personal 


Además del circuito mostrado en el 
tomo anterior, podemos utilizar el ordenador 
para controlar otras características del oscila- 
dor. Si se sustituyen los conmutadores por 
puertas analógicas o transistores MOS, pode- 
mos controlar con el puerto de salida de la tar- 
jeta de ampliación de puertos el funciona- 
miento mediante programa. La variación de 
frecuencia mediante un conversor digital/ 
analógico activando la entrada de la patilla 8 
permite la generación de frecuencias varia- 
bles con el código transmitido al conversor. 
También podemos generar trenes de señales 
de una frecuencia dada durante períodos pro- 
gramados. El esquema de la figura permite 
detener la señal de oscilación, cortocircuitan- 
do las bornas del condensador al hacerse con- 
ductor el transistor por efecto del pulso dado 
a su entrada. 


Fig. 13. Generación de ráfagas. 


La generación de ráfagas puede hacer- 
se simultáneamente a la variación de frecuen- 
cia, obteniéndose señales de prueba de equi- 
pos de audio-frecuencia más parecidas a las 
condiciones reales de trabajo. 


Generador de señal senoidal 
de referencia 


Con objeto de ajustar la simetría y co- 
nocer la posible influencia de los armónicos 
que indudablemente están presentes en el se- 
noide generada mediante ajuste por tramos, 
podemos realizar un oscilador senoidal de fre- 
cuencia fija, dentro del margen de frecuen- 
cias de mayor interés en nuestras aplicaciones. 

Un circuito típico de obtención de señal 
senoidal mediante amplificadores operaciona- 
les es el de puente de Wien. Consiste en es- 
tablecer en el lazo de realimentación positiva 
un circuito que produzca las condiciones de 


Fig. 14. Oscilador senoidal en puente de Wien. 
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oscilación, que son el que la señal de reali- 
mentación se encuentre en fase con la de en- 
trada al amplificador. Para que la oscilación 
sea estable, la ganancia del circuito ha de ser 
la unidad. 

Al ser la atenuación en el lado de rea- 
limentación positiva de valor 3, es necesario 
que la ganancia sea también 3. Para que se 
mantenga estable es necesario utilizar un 
componente no lineal que atenúe la ganancia 
si la amplitud sobrepasa el valor deseado o 
que la aumente si es necesario mantener la os- 
cilación. Los componentes no lineales utiliza- 
dos generalmente son lámparas incandescen- 
tes miniatura, diodos zener o termistores. En 
cualquier caso el efecto observado es que la 
oscilación arranca, aumentando rápidamente 
la amplitud de la oscilación hasta que entra en 
funcionamiento el elemento no lineal y se pro- 
duce el ajuste de ganancia. 

La frecuencia de oscilación viene fijada 
por: 


f=1/2RRC 


Se suponen iguales las resistencias y 
condensadores: Rl1 =R2=R, Cl =C2=C, 

El interés del circuito radica en que no 
es necesario utilizar bobinas, pues estos com- 
ponentes son más difíciles de fabricar con la 
precisión y estabilidad adecuadas. La señal 
obtenida es de gran pureza y estabilidad, por 
lo que puede utilizarse como referencia para 
el otro tipo de oscilador. 

Para hacer el oscilador de frecuencia 
variable hemos de montar dos resistencias va- 
riables sobre el mismo eje, para que se varíen 
a la vez. 
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- Otros circuitos osciladores triangulares y senoidales, también de fácil ad- 
quisición. Uno muy popular es el XR-2206, 
Existen otros circuitos similares al pre- cuyo esquema se indica en la figura, junto con 
sentado para generar señales rectangulares, un circuito sencillo de aplicación. 


MODULACION O 


AJUSTE DE 
SENO O SIMETRIA 
RAMPA 
SALIDA | AJUSTE DE 
FORMA 
V+ 
v- 
CONDENSADOR | 
REFERENCIA 


ENTRADA FSK 


27 RC 


10 y F 


10 F 


Fig. 15. Circuito XR-2206 y oscilador senoidal. 


. 
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APRENDER CON EL ORDENADOR "* 


NATURALEZA 
Y TECNOLOGIA 


Péndulo simple 


N general, todo el mundo 
tiene la idea de lo que es un 
péndulo como todo cuerpo 
que separado de su posición 
de equilibrio es susceptible 
de oscilar a un lado y a otro 
de dicha posición. Lo más 
cercano a nosotros que cum- 
ple estas condiciones es la lenteja que cuelga 
de un reloj de pared. 

Sin embargo, en sentido más estricto, 
un péndulo es todo cuerpo pesado suspendi- 
do de un punto por encima de su centro de 
gravedad y que puede girar alrededor de un 
eje que pasa por dicho punto (Fig. 1). 


Ny 


Fig. la. Varilla vibrando. Fig. lb. Paraguas. 


Podemos encontrarnos con varios tipos de 
péndulo: simple y compuesto. 

Vamos a centrarnos en el estudio del 
primero de ellos, el péndulo simple. 


Péndulo simple 


Se considera como péndulo simple a un 
punto material pesado suspendido en el vacío 


4] 


por un hilo inextensible y sin peso, suscepti- 
ble de oscilar sin rozamientos. Lo más aproxi- 
mado a él a nivel de experimentación es una 
pequeña esfera de gran densidad, suspendi- 
da de un hilo fino y suficientemente largo (Fig. 2). 


Fig. 2. Péndulo 
simple experimental. 


Movimiento del péndulo simple. Ecuación del periodo TT. 


El movimiento del péndulo simple vie- 
ne representado por la figura (Fig. 3): 

Al apartar el peso, P, de su posición de 
equilibrio y llevarlo hasta el púnto B, se ha rea- 
lizado un trabajo que queda acumulado en el 
cuerpo como energía potencial. 

Dejado libre, tenderá a bajar hacia la 
posición inicial, debido a la acción de su peso 
P, por la vertical (movimiento de caída libre), 
pero como está sujeto a un hilo inextensible, 
tiene que seguir el arco BA. Al peso se le pue- 
de descomponer en dos: una fuerza H y una 
fuerza N. La fuerza N (fuerza normal) queda 
anulada por la reacción del hilo y la fuerza H 
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Fig. 3. Péndulo simple. 

P = Peso. 

H = Componente del peso que hace volver al cuerpo al punto 
«A» del equilibrio. 

N = Componente del peso anulado por el hilo. 

L = Longitud del brazo del péndulo 


pay Le 
Triángulo OAB = Triángulo BDE 
A = Punto de equilibrio. 


es la que hace que el cuerpo se mueva hacia 
la posición A, cuyo valor es: 


HEB. 
H=P- sen a/H = m- g sen a [1] 
Al llegar al punto A ya no tiene energía 
potencial, pues ha dejado de recorrer una al- 
tura, pero por el teorema de la conservación 
de la energía (en un sistema aislado se man- 
tiene constante la energía total del sistema, o 
sea, la suma de la energía potencial y la ener- 
gía cinética se mantiene constante: E. cinéti- 
ca=1 + E. potericial-1 = E. cinética-2 + E. po- 
tencial-2), ha pasado todo a energía cinética, 
con lo que en el punto A ésta es máxima y ello 
hace que el cuerpo suba hasta el punto C (está 
a la misma altura que B). En este nuevo punto, 
al cumplirse también el teorema de la conser- 
vación de la energía, en el cuerpo toda la 
energía cinética se ha vuelto energía poten- 
cial. Y del punto C, por acción del peso, ten- 
derá a bajar de nuevo al puntc de equilibrio 
A. Este proceso de oscilamiento continuo se- 
guirá indefinidamente si no fuera por el roza- 
miento. 


10 REM RR OOOO OO OOOO O 
15 REM * * 
20 REM * 
25 REM *k 


EL PENDULO SIMPLE xk 


* 
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Conocemos, por tanto, la fuerza H que 
el cuerpo oscile por [1]: 


H=m>-*g-*sen a [1] 
donde el valor del seno del ángulo, por trigo- 
nometría, sabemos que es: 


Ss 

=— 3 

sen a L [3] 

Si la oscilación es muy pequeña, llega 

un momento en que el valor del sen a y el va- 

lor de a se confunde, por lo que se puede po- 
ner: 


o 
[2 H=m-9- $ 


H=m-g*sena=m-+g+a=m-9+-- [8”] 

El movimiento del péndulo simple es un 
tipo de movimiento armónico, donde el valor 
de la fuerza toma el valor: 


F= m-w?+s [4] 
Igualando ambas expresiones [3'] y [4], 
resulta: 


mg— =1nw?*-+S [4] 
simplificando y despejando se obtiene: 
g/L=w [5]' 
Por otra parte, en el movimiento armó- 

nico el valor de la velocidad angular es: 


27 
AR 7 
2m)* ; 
de donde: w? = de [6'] 

Igualando [5] y [6']: 

Amr g 

A [7] 
simplificando y despejando: 

T=2x + V(L/9) [8] 


que es el valor del período del péndulo sim- 
ple, donde L corresponde al valor de la longi- 
tud del brazo del péndulo y g es la acelera- 
ción total del sistema y que según las condi- 
ciones será: 9,8 m/s'2 o bien g = 9,8 + a m/s'2 
(a: aceleración del sistema si está en movi- 
miento). 


BO REM OOOIOROOOOIOIOGOIOOBIPIORRERIONOR 

40 CELS 

50 LET PI=3.1416: LET 6=9.8 

SS REM OOOO MENU PRINCIPAL OOOO NOE 
60 PRINT TAB(8); "PENDULO SIMPLE" 

SI y 

70 FRINT:FRINT "PUEDE LLEGAR A DETERMINARSE EL." 

72 PRINT "VALOR DEL FERIODO DE UN PENDULO" 

76 PRINT "CONOCIENDO LA LONGITUD DEL BRAZO" 

80 PRINT "Y LA ACELERACIÓN DEL SISTEMA." 

90 FRINT:PRINT 

100 PRINT TAR(4)5 "ELIJE LAS CONDICIONES DEL" 

105 PRINT "SISTEMA: " 

110 PRINT O: FRINT "1.- PENDULO EN CONDICIONES NOR=" 

115 PRINT TAB(S)3 "MALES. (9 = 9.8 m/s 2)" 

12% PRINT:PRIMT *2.- PENDULO EN UN OBJETO EN MO-" 

125 FRINT TAR(3) 5 "VIMIENTO. g.total= gta." 

126 FRINT T1AB(4)3"(a= aceleración del sistema)” 

128 PRINT:PRINT: PRINT "(PULSA 1 / 2.) "; 

130 REM AXARARAFA ELECCION DE LA OPCION AGOBIO OOOO OGIOIOIOIOOK 4 


140 INFUT Y € 
150 UN U GOTO 300,500 
160 CLS 


170 REMIGIO FIN DE PROGRAMA OOOO OOOO 
190 PRINT:PRINT: PRINT "DESEAS CONOCER OTRO VALOR DEL.” 

193 PRINT. "PERIODO ¿12 (S/N):"; 

198 INPUT AS 

200 1F A$="S" OK A$="s" THEN CLS:GOTO Yo 

210 1F A$2>%NM" AND A$<>"n" THEN GOTO 190 

220 CLS: LOCATE 12,10:FRINT " ¡115 FIN DEL PROGRAMA 11!" 

230 FOR I=i1 TO 5000: NEXT 1:CLS: END ; 

300 REA ORO OOOO OOOO OOOO OOOO OOOO Ok 


302 REM x* INTRODUCCION DEL VALOR DEL BRAZG <L> DEL * 
303 REM * PENDULO Y DETERMINACION DEL PERIODO <T> Y 
304 REM aa alla lalo lolo 
306 CLS - 


308 PRINT:PRINT:¿PRINT 

310 PRINT "LONGITUD DEL BRAZO DEL FENDULO" 

315 PRINT "EN METROS: ” 

318 INPUT L 

319 1F L=09 THEN CLS:PRINI- "PERIODO DEL PENDULO <1>: (=0":FOR 1d=1 10 3000:NEX1 Ls 
GOTO 160 : 

320 FPRINT:PRINT:<PRINT TAB(3)5"EN ESTE CASO LA <9: EN LA FOUR=" 

3239 PRINT "MULA DE <1> ES 9 = 9.8 m/s 2.” 

330 FOR I=1 TO S000:NEXT 1 

BOO REM AOS OOOO OOOO ROO ROTOR OCIO AO A AR 


401 FEM k CALCULO DEL FERIODO <T* DEL PENDULO * 
402 REM *k EN CONDICIONES NORMALES, G = 7.8 m/st. x 
BOS REM GIOROOIOIOOOOIOIOOIOOIOOOIOIOIOO OOOO OOIOROIOIOOIORO OO A ARA 
405 CLS 


410 LET T=2kXFIX(L/G)*11/2) 

412 REM XX*Xk REDONDEO DEL VALOR PEL PERIODO A DOS DECIMALES *AXKFXX 
415 LET P=INT(TR100)/100 

418 REM AXXX*X PRESENTACION EN PANTALLA DEL VALOR DEL PERIODO AXRAX 
420 PRINT:PRINT:PRINT TAB(4)5 "EN CONDICIONES NORMALES, SA-" 

423 FRINT "BIENDO QUE LA LONGITUD DEL BRA-" 

428 "FRINT "ZO ES "¿L;" Y LA ACELERACION DEL" 

430 FRINT "SISTEMA ES "363" EL PERIODO <T>2" 

435 FRINT "DEL PENDULO ES 2: " 

438 PRINT:PRINT:PRINT 

AA PUN OOOO 


450 FRINT "Xx 1 Xx" 
460 PRINT "*x"¿F;" Segundos "¿"X" 
470 PRINT "xk x" 


ABO PRINTS 

485 FRINT "(ESFERA UN MOMENTO, POR FAVOR)" 

470 FOR I=1 TO 10000: NEXT 1 

495 GOTO 160 

SO REM OOOO OOOO OOOO OOOO IOIOOIOIOIOIOROIOIOIOIOIO(OIOR: 
SO2 REM k CALCULO DEL FERIODO <T> DEL PENDULO CUANDO ESTA  Xk 


503 REM xk DENTRO DE UN SISTEMA CON UNA ACELERACION <a> ES 
504 REM OO OOOO OIR ORO OIO OOOO OROOOIOOOOIOIOIOGIOGIORIOOIOIOO 
506 CLS 


508 PRINT:PRINT 

510 PRINT:PRINT:PRINT TAB(3)5"EL PENDULO SE ENCUENTRA DENTRO" 
3 FPRINT "DE UN VEHICULO (coche, cohete, ..)" 

FRINT "EN MOVIMIENTO. EL SISTEMA SE VE” 

PRINT “MODIFICADO DEBIDO A UNA ACELERA-" 

PFRINT "CION <a>.” + 

FRINT: PRINT "POR TANTO: g.total = gq + a" 

PRINT: PRINT TAB(149)3" GT =G + A” 

PRINTIPRINT 
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POR FAVOR.)* 


DEL BRAZO * 


38 PRIBDISPRINT:PRINT:S PEIMI "ESPERA UN MOMENTO, 

5040 FOR =1 TO 10000: NEXT la CLS 

A EA ROTOR OOOO OOOO OOOO OOOO OOOO OOOO 44 
545 REM X INTRODUCCION DE LOS DATOS DE LA LOMGITUD 

546 REN» Y DE LA ACELERACION DEL SISTEMA EN MOVIMIENTO 4 
IZ REA RRA RARO OOOO OOO OOOO ROO IO OOOO OOO RA 
549 PRINT:PRINT 

550 PRIMT "LONGITUD DEL BRAZO DEL PENDULO" 

55% PRINT "EN <METROS> 2" 

555. IMPUT L 

556 IF L=0 THEN CLS:PRIMT "EL PERIODO <T; 


2 MEX? 1:GOTO 160 
558 PRINT:FRINT 
PRINT:E¿PRINT 
560 PRINI3PRINT 
¿ PRINT "EM MOVIMIENTO = * 
3 INPUT A 

5 le A=O THEM CLS:<S6010 320 
AS 


573 REO Xkx ALGORITMO PARA DETERMINAR EL PERIODO <f. 


TSZLEPIA (LG 11/2) 


60% REM A 


18. OLS 
PRIMT:PRINTIPRINMNT 


"ACELERACIÓN QUE ALCANZA 


PERIODO <1> A 


DEL FEMDULO ES: 


ij 


1=0.":2 


FOR 1=1 


EL SISTEMA” 


EPIA A 


DOS DECIMALES RXRXFAK 


REM AO AAA AA RARE AAA RAE 
PRESENTACIOÓN DE LOS RESULIADOS 
FRE AIR RR IRONIA OOOO O AAA RA RAR 


EN PANTALLA  * 


Elo PRIMISPRINTEPRIMNT TABL(3) 5 "CUANDO El FENDULO SE ENCUENTRA” 


PRINT 
PERINI 
10 PRIMI 


“10, El VALOR DEL PEKIODO 
"PENMDULO ES 3" 

PRINT: PRIM: PRINIT 

FRINT "RXFRAARAR AAA NA TARA ENS 
y PRINT "3 A." 
SPRINT 0% AA SEGUNDOS 
O PRINT “4 get 
SO PRISTON ARA AAA 
575 PRINT:PRINT:PRINT:PRINT 
O FOR I=1 TO 10000: NEXT 1 
1390 GOTO 160 


Modificaciones para otros equipos 


Este programa es válido para el 
IBM-PC y compatibles, siendo necesarias las 


siguientes modificaciones para otros equipos: 


ZX-SPECTRUM 


150 IF U=1 THEN GOTO 300 

154 IF U=2 THEN GOTO 500 

156 GOTO 128  * 

220”CLS: PRINT AT 12,10; ¡¡¡ FIN DE PROGRAMA !!! ” 
230 FOR I=1 TO 3000: NEXT I: CLS: GOTO 9999 

319 IF L=0 THEN CLS: PRINT "PERIODO <T>: T=0.”: 
FOR l=1 TO 1000: NEXT 1: GOTO 160 

540 FOR I=1 TO 5000: NEXT 1: CLS 

356 IF L=0 THEN CLS: PRINT "PERIODO <T>: T=0.”: 
FOR 1=1 TO 1000: NEXT I: GOTO 160 


COMMODORE 


40 PRINT CHR$(147) 
160 PRINT CHR$(147) 


PROGRAMA!!!” 

230 FOR I=1 TO 5000: NEXT I: PRINT “PERIODO <T>: 
T=0.”: FOR I=1 TO 3000: NEXT I: GOTO 160 

405 PRINT CHR$(147) 

540 FOR I=1 TO 10000: NEXT I: PRINT CHR$(147) 

556 IF L=0 THEN PRINT CHR$(147): PRINT "PERIODO" 
<T>: T=0.": FOR I=1 TO 3000: NEXT 1: GOTO 160 

565 IF A=0 THEN PRINT CHR$(147): GOTO 320 


> 
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“DENTRO DE UN SISTEMA EN MOVIMIEN" 
DEL” 


"(ESPERA UN MOMENTO, FOR FAVOR)" 


AMSTRAD 


220 CLS: LOCATE 10,12: PRINT * ¡¡¡FIN DE 
PROGRAMA !!! * 


MATEMATICAS 


== Recta en el plano afín. Formas de la 
ecuación de la recta 


Un vector director de una recta es uno 
de los infinitos vectores libres que tienen su 
dirección. 

Se pueden deducir diferentes formas 
de la ecuación de la recta conociendo un pun- 


to A (o dos puntos A y B) y un vector director 
de ella. 


Formas de la ecuación de la recta 


Componentes del punto A: A(A1,A2). 
Componentes del punto B: B(B1,B2) 
Componentes del vector director v: 


v(V1,V2). 


Ecuación vectorial. 


OX=0A+a-v [1] 
Ecuaciones paramétricas 
X=Al1+a-Vl 

Y =A2+0a:V2 [2] 


Ecuación continua. Se obtiene despejan- 
do el parámetro a de la parámétrica e igua- 
lando. 


ICALI 
ITA V2 [S] 


Cuando una de las componentes del vector di- 
rector es nula, entonces la ecuación [3] toma 
forma simbólica al quedar uno de los dos co- 
cientes dividido por 0. 


Ecuación general de la recta. Se obtie- 
ne operando [3]: 


(X - ADV2=V1'(Y - A2) 

V2X - V2'Al = VI Y - V1'A2 
V2X- V2A1 - Vl'Y + V1'A2=0 
V2X - V1'1+V1'A2- V2'A1=0 


sea A=V2; B=-Vl; y C=V1'V2- V2'A1, de 


10 REM OOOOOIOOIOIOIOIORIOOIORIODIOSIODIORIOIOON: 
15 REM * 

20 REM xk PLANO AFÍN 
25 REM Xx 

30 REM *k 

35 REM * 

40 REM * 

45 ELS 


* 
* 
ECUACIONES DE LA RECTA LS 
xk 
xk 


FOOIOIOIOIOIOOIOIOIOIOIOIOOIOOOIOIOOOONO 


donde 
ec. general Ax+By+C=0 [4] 


Ecuación de la recta que pasa por dos 
puntos. Si tenemos dos puntos que pertenecen 
a la recta podemos deducir el valor del vector 
director y; con un punto y un vector director se 
obtienen todas las ecuaciones de la recta. 


A(A1,A2)/Un vector director v será: 
B(B1,B2)/ v (V1,V2) = (Bl - Al, B2- A2) 


Ecuación en forma explícita de la recta. 
Es de la forma 1=M-+x+M.  , ¿ 


r= M-x+N, donde M= V2/Vl, y 
N =V1'A2-V2'A1 A 
(A1,42): v(V1,V2) 


Ecuación punto pendiente de la recta. Se 
obtiene cuando se conoce un punto que per- 
tenece a la recta y su pendiente < M>. 


r=y-A2=M-(x-Al) 
M=V2/V1 
A(A1,A2) 


50 PRINT:PRINT:PRINT TAB(4) "PUEDES DETERMINAR LA ECUACION" 
55 PRINT "DE LA RECTA EN SUS FORMAS MAS CO” 


60 PRINT "NOCIDAS SEGUN LAS CONDICIONES" 


65 PRINT "SIGUIENTES: " 


70 PRINT:PRINT "1.- DADOS UN PUNTO <A> Y UN VEC” 


75 PRINT TAB(S5)3 "TOR DIRECTOR <V> DE LA RECTA” 

80 PRINT: PRINT "2.— CONOCIDOS DOS PUNTOS A Y E" 

83 PRINT TAB(5)3 "QUE PERTENECEN A LA RECTA” 

90 PRINT: PRINT "3.- CONOCIENDO UN PUNTO <A> Y LA" 
93 PRINT TAB(5)3 "PENDIENTE ¿M> DE LA RECTA" 

100 PRINT: PRINT "4.—- CONOCIENDO LOS PUNTOS DE COR" 


105 PRINT TAB(5);"TE CON LOS EJES" 


110 PRINT:PRINMT: PRINT "PULSA LA OPCION DESEADA (1-2-3-4)3 " 


120 INFUT U 

130 CELS 

140 ON U GOTO 300,400,500,600 
Cabras 


160 PRINT:PRINT:PRINF:PRINT "QUIERES DETERMINAR LA ECUACION" 


165 PRINT “DE OTRA RECTA (5/M) "; 
168 INPUT Ks 
170 1F K$5="S” OR K$="s" THEN GOTO 43 


180 IF K$<2"N" AND K$<>"n" THEM GOTO 160 


190 CLS: LOCATE 12,10: PRINT "iii ADIOS !!!” 


195 FOR I=1 TO 5SO00:MEXT I :CLS 
200 END 


300 REM OOOO OOOO OOO OOOO KA 


301 REM * 
302 REM *x 


SUBRUTINA PARA IMTRODUCIR LAS COORDENADAS DE * 
UN PUNTO Y UN VECTOR DIRECTOR DE LA RECTA x 


303 REM HAGO OOOO OOOO OIOOIOIOOOOOIOOIOOOREOREOA 


305 CLS 
308 PRINT:PRINT 


310 PRINT:PRINT: INPUT "COORDENADAS DEL PUNTO A(A1,A2): "¡¿A1,AZ2 
320 PRINT:PRINT: INPUT "COORDENADAS DEL VECTOR DIRECTOR V(V1,V2)2 "¡V1,V2 


330 GOSUE 900 


APRENDER CON EL ORDENADOR 


340 GOTO 150 
GOO REA ROO OOOO OOO OOIOOIOIOIOIOIOIOIO OOOO OO OOOO AA 
401 REM x SUBRUTINA FARA INTRODUCIR LAS COORDEMADAS DE  *k 


402 REM xk DOS PUNTOS QUE PERTENECEN A LA RECTA ES 
HOZ REM GOOOOROROIOROIOIDRIORIOREOOIOROROODONOONA RARA RE XARAR 
403 ELS 


408 PRINT:PRINT 

410 PRINT:PRINT: INPUT "COORDENADAS DEL PUNTO A(A1,A2): “:A1,A2 

420 PRINT:PRINT: INPUT "COGURDENADAS DEL PUNTO B(B1,B62): ";B1,B2 
430 LET Vi=B1-Al 

440 LET V2=B2-A2 

4350 GOSUB 900 

460 GOTO 1350 

S00 REM AO IOIOIOOIOIOIOIOOIOIORGIO OOOO OIOIOIOOIOIOIOIOGIORIO ROBOS 
501 REM * SUBRUTINA FARA INTRODUCIR LAS COORDENADAS DE UN PUNTO * 


502 REM * Y EL VALOR DE LA PENDIENTE <M> DE LA RECTA A 
SO REM ROOIOOOIOOIOIOROOOOIORIOOPIORIORIOIORORIORIOROIORIORIOROROIROOOOOOOOOOOODODON 
505 (CLS 


508 PRINT¿PRINT 

S10 PRINT:PRINT: INPUT "COORDENADAS DEL PUNTO At(A1,A2): "¡A1,A2 
320 PRINT3PRINT: INPUT "VALOR DE LA PENDIENTE <M> DE LA RECTA: "¿Mm 
350 LET Vi=1:LET V2=M 

540 GOSUB 900 

550 GOTO 150 

800 REM ROIOROOIOOIOOIOIOOIOIORIOIOIO OOOO IOIOIOIROIOIOIPBIOOIOIOOIOIOIOROIOIOIPIOIOIBIOIOROIOK 
601 REM k SUBRUTINA PARA INTRODUCIR LOS VALORES DE LOS PUNTOS * 


602 REM k DE CORTE CON LOS EJES <X> E <Y> * 
SIS REM OOOO OOOO OOOO OOO OOOO IOOOOOIOIGIOOOIOIGIOOR 
605 CELS 


606 PRINT:PRINT 

610 PRINT:PRINT: INPUT "FUNTO DONDE CORTA AL EJE <X> CON SU SIGNO: "¿X 
620 PRINT<FPRINT: INPUT "PUNTO DONDE CORTA AL EJE <Y> CON SU SIGNO: "3Y 
630 LET Al=X: LET A2=0 

640 LET Vi=X: LET V2=-Y 

650 GOSUB 900 

660 GOTO 150 

FOO REM OOOO OOIORORIOROIOIOIOIOIOIOOOIOIOIOOOIOOIOOOIOIOIOIOIOIOIDIOIOIOBIORORIOROJÓR 

901 REM x PRESENTACION EN PANTALLA DE LOS RESULTADOS * 

BOZ REM OOOO IOIOOIOROOIOIOIOIOROIOIOIOIOROOOIOIOBIOIOIOROIDIROIOIPIBBIOIOOIDIOO O 

903 CELS 

910 1F Vi=0 AND V2=0 THEN GOTO 1130 

930 PRINT "ECUACIONES FARAMETRICAS: " ; 


940 PRINTS: PRINT "Xx = "Al" + ak (0U3viz")" 
PAOIERINT "Y PAD RAR ANY 

960 PRINT 

970 PRINT "ECUACION EN FORMA CONTÍNUA: " 

980 PRINT: PRINT "X - "¡Aiz" Y = "¡Az 
O A 

TUOOAPRINT 0, ENS O "5 v2 

1010 PRINT 

1020 PRINT "ECUACION GENERAL C(IMPLICITA):" 
1030 PRINT:¿PRINT" V23" Xx + "5-V13" Y + "¡VIXAZ-V2XA13" = 0” 
10940 PRINT 


¿ 1050 PRINT "ECUACION EN FORMA EXPLICITA: " 
1055 PRINT 


1060, IF Vi=0 THEN PRINT "Y = "¡ Al: GOTO 1080 
1070 PRINT "Y = "3U2/V13" X + "3 (A2XV1-V2xXA1)/V1 
> 1080 PRINT 
1090 FRINT "ECUACION FUNTO-PENDIENTE: 
1100 FRINT : 1F Vi=0 THEN PRINT "Y = "¡A1: GOTO 1150 
110 PRINT "Y == "a23"= MEUZ/IVES Y (PAT) MIGOTO 1150 


1130 PRINT:PRINT:PRINTSPRINT "NO HAY ECUACION DE LA RECTA PUES” 
11335 PRINT “EL VECTOR DIRECTOR ES EL VECTOR" 

1140 PRINT "NULO: V(0,0).":FOR I=1 TO 5000: NEXT 1:GOTO 150 

1150 FOR i=1 TO 20000: NEXT 1 

1160 RETURN 


Lena pi : 148 GOTO 110 
Modificaciones para otros equipos 190 CLS: PRINT AT 12,10; ¡jj ADIOS !!! * 
: ae 195 FOR I=1 TO 2000: NEXT 1: GOTO 9999 
__ Son necesarias las siguientes 1130 FOR I=1 TO 10000: NEXT 1 

modificaciones para otros equipos: 
ZX-SPECTRUM COMMODORE 

140 IF U=1 THEN GOTO 300 45 PRINT CHR$(147) 

142 IF U=2 THEN GOTO 400 130 PRINT CHR$(147) 

144 IF U=3 THEN GOTO 500 150 PRINT CHR$(147) 

146 IF U=4 THEN GOTO 600 190 PRINT CHR$(147): PRINT * jj ADIOS 1! * 
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AMSTRAD 
190 LOCATE 10,12: PRINT "¡¡¡ADIOS!!P” 


SOCIEDAD 


La pintura española 
durante el siglo XIX 


Durante el primer tercio del siglo XIX 
los pintores españoles, excepto los seguidores 
de Goya, quedaron sometidos a la influencia 
del Neoclasicismo. Entre éstos destacan el va- 
lenciano Vicente López, retratista de la fami- 
lia real y de los principales personajes políti- 
cos de la época; y el santanderino José de Ma- 
drazo, muy influenciado por el pintor francés 
David, conocido por sus cuadros históricos. 

En el segundo tercio del siglo la pintu- 
ra romántica cuenta con tres importantes figu- 
ras cultivadoras del retrato: Federico de Ma- 
drazo (el retratista más destacado de la Espa- 
ña romántica), el sevillano Antonio María Es- 
quivel (con el famoso cuadro Los Poetas), y el 
catalán Joaquín Espalter, a quien pertenece el 
cuadro La familia Flaquer, del Museo Román- 
tico de Maarid. 

Al iniciarse el último tercio del siglo ad- 
quirió un gran desarrollo la pintura de cuadros 
de historia, género puesto de moda en Fran- 
cia por David y sus seguidores. Los cuadros 
de historia se caracterizan por su gran tama- 
ño y su extraordinaria minuciosidad, intere- 
sando en ellos más la precisión histórica que 
la calidad técnica. 

Entre los muchos pintores que cultiva- 
ron este género destacan principalmente José 
Casado de Alisal, cuya obra más representa- 
tiva es la Rendición de Bailén; Antonio Gisbert, 
que trata temas relacionados con la libertad 


DO REM RGGIOIOOOIOIOOOOIOOOOOIOIRIOOORRONONE 
15 REM * CONOCIMIENTOS SOBRE FINTURA *k 


20 REM Ox ESPAÑOLA DEL SIGLO XIX k 
DI REM OOOO OOOO DOOIOICIOOOO: 
30 CELS 


40 LET A=0 

50 RANDOMIZE TIMER 

60 DIM 4$(10): DIM BS(40):DIM N(10) 
PO REM ROCOSO OOOO 
735 REM X LECTURA DE FREGUNTAS  * 
BO REM ARO OOOO 
90 FOR I=1 TO 10 

100 READ A$s(I) 

110 NEXT 1 

BO REM OOOO OOOO 
125 REM * LECTURA DE RESPUESTAS %* 
130 REM OOOO OOO OOO 


como el Fusilamiento de Torrijos y sus compa- 
ñeros; y el más importante de todos, Eduardo 
Rosales, con su célebre cuadro el Testamento 
de Isabel la Católica, que triunfó en la Exposi- 
ción de 1864, 


Contemporáneo de Rosales es el pintor 
catalán Mariano Fortuny. La luz y el color, que 
le fascinaban, los encontró en Marruecos, 
adonde se trasladó con ocasión de la guerra 
hispano-marroquí en tiempos de O'Donnell, 
pintando entre otras la Batalla de Tetuán. Re- 
nunció a la pintura de la historia, prefiriendo 
dedicarse a temas sencillos e intrascendentes 
ejecutados con una técnica minuciosa y dota- 
dos de intenso colorido. Su obra más impor- 
tante de este género es La Vicaría. 


El impresionismo español cuenta con un 
buen número de pintores que cultivaron prin- 
cipalmente el paisaje. Entre ellos sobresalen: 
Aureliano Beruete, Darío de Regoyos, Eliseo 
Meifrén, Joaquín Mir y Santiago Rusiñol. Pero 
las dos figuras más importantes de la última 
etapa del siglo XIX y primeros decenios del 
XX son: el valenciano Joaquín Sorolla y el vas- 
co Ignacio Zuloaga. 


Sorolla, el pintor de Valencia, comenzó pin- 
tando cuadros de historia como el Dos de 
Mayo, a los que siguieron después cuadros de 
tema social como ¡Aún dicen que el pescado es 
caro! Su verdadera innovación fue la pintura 
realizada al aire libre en las luminosas playas 
valencianas, pintura llena de luz y de colorido 
y ejecutada con una técnica muy suelta. 


Ignacio Zuloaga es el pintor de Castilla, 
especialmente de las tierras de Avila, y sobre 
todo de Segovia, en donde vivió muchos años. 
Excelente paisajista, no dudó en colocar am- 
plios fondos de paisaje en sus retratos, Una de 
sus obras más conocidas es el Cristo de la san- 
gre, que tiene la ciudad de Avila al fondo. 


APRENDER CON EL ORDENADOR 


140 FOR J=1 TO 40 

150 READ B$(J) 

160 NEXT y 

170 REM OOOIOOOIOGOORIOOIOIOOIBIOOOIOO 

173 REM *X LECTURA DE SOLUCIONES *k 

180 REM x A LAS RESPUESTAS * 

185 REM OOOO RIODOIOGODONE Rx 

190 FOR K=1 TO 10 

1935 READ N(K) 

200 NEXT K 

DUO REM ROOIOIOIOOIOIOOIOIOIOIOIOIOIOIOIOOIOIGIOLNE 

215 REM *k EDICION EN PANTALLA DE * 

220 REM % PREGUNTAS Y RESPUESTAS x* 

DE REM RORGOIOOIOIO O OOOOIOOOIBIORTRN 

230 FOR I=1 TO 10 

240 PRINT:FRINT TAB(2)34$(1)> 

2530 PRINT:PRINT 

260 PRINT:PRINT TAB(6)3B$(1x4-3) 

270 FRINT:FRINT TAB(6)3B$(114-2) 

280 PRINT:PRINT TAB(6);B$5(114-1) 

290 PRINT:PRINT TAB(6);B$(1x4) 

300 PRINT:PRINT 

310 REM OSOOIOORIOIOIOOOIOIOIOIOIOOODÓO 

313 REM *x INTRODUCCION DE LA x 

320 REM * SOLUCION CORRECTA  k 

IL REA AORROROOIOOIOIOIOIOIOIOIOIGIOIOON 

330 INPUT "LA RESPUESTA ES:z "¿R 

340 IF R=MC(1) THEN GOSUB 500 

350 IF R¿>MCI) THEN GOSUB 800 

360 NEXT I 

370 PRINT:PRINT:PRINT 

380 REMO OOOOIORIORIROIOIORRIOIORIRIORPIOOO 

385 REM * EDICION DEL FIN DEL * 

390 REM xk PROGRAMA k 

399 REM OOOO 

400 PRINT TAR(3); "RESPUESTAS CORRECTAS: "¿A 
410 PRIMT:PRINT:PRINT 

415 IF Az1 OR A>10 THEN GOTO 400 

420 IF A>=1 AND A<4 THEN PRINT "MUY DEFICIENTE":GOTO 490 
430 IF A=4 THEN PRINT "INSUFICIENTE":GOTO 490 ¡ 
440 IF A=5 THEN PRINT "SUFICIENTE":GOTO 490 
450 IF A=6 THEN FRINT "BIEN":GOTO 4790 

460 IF A>6 AND A<9 THEN-PRINT "NOTABLE":GOTO 490 
470 1F A=9 THEN PRINT "SOBRESALIENTE":GOTO 490 
480 PRINT "MUY BIEN. PERFECTO. TIENES UN 10 DE NOTA" 
490 FOR I=1 TO 2000: NEXT 1:CLS: END 

300 REM OOOIOIOIOIOOIOIOIOOIOIOOIOIOIORIBOIDIORIONÓON 

505 REM k SUBRUTINA DE RESPUESTAS * 


510 REM k CORRECTAS k 
S15 REM AGOIOGIOOOIOBIBOIOIORIOIBORIORRIORIOGOK 
520 CLS 
530 PRINT:PRINT:PRINT 

Í 546 PRINT " ¡SOLUCION CORRECTA!" 


550 LET A=A+1 
560 FOR F=0 TO 2000:NEXT F:CLS 


570 RETURN 

a 800 REM OOOO OOIOIOIOIOIOOIOIOIOOIOIOO 
605 REM * SUBRUTINA DE RESPUESTAS *X 
810 REM xk INCORRECTAS k 
815 REM OOOOOOIOIOOIOOIOOIOIOOOIOOOIONIOOR 
820 CLS 
830 PRINT:PRINT:PRINT 
840 FRINT ” ¡NO ES CORRECTO!” 


850 PRINT:FRINT 

860 PRINT "LA SOLUCION CORRECTA ES: " 

865 PRINT:PRINT B$(1x4+N(1)-4) 

870 FOR F=1 TO 5000: NEXT F:CLS 

880 RETURN 

1000 REM OOOO OOIOIOOIBIOOIOOROONA 

1010 REM *x DATAS CúN LAS FREGUNTAS * 

1020 REM x RESPUESTAS Y CON LAS *k 

1030 REM *x SOLUCIONES CORRECTAS xXx 

1040 REM OOOO k 

1050 DATA "OBRA CONOCIDA DE EDUARDO ROSALES :", "QUE RECREO ZULOAGA EN SUS CUADI 
DS: ", "QUIEN INFLUENCIO A LOS PINTORES DEL ULTIMO TERCIO DE SIGLO: ”,"REPRESEN 
ANTES DEL IMFRESIONISMO ESFAÑOL: " 

1060 DATA "PINTORES DEL SEGUNDO TERCIO DE SIGLO CULTIVADORES DEL RETRATO: ", "AUT 
R DE LA OBRA ¿FUSILAMIENTO DE TORRIJOS>", "QUE EUSCABA FORTUNY RECREAR EN SUS CU1 
DROS:" 

1070 DATA "PINTORES MAS DESTACADOS DE ULTIMOS DEL S. XIX Y ERINCIPIOS DEL S. XX 
", "SOROLLA PLASMO COM GRAN REALISMO: ” 
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1080 DATA 
CEFTO LOS SEGUIDORES DE GOYA): " 

1090 DATA "1. RENDICION DE BAILEN"," 
ATOLICA", "4. LA FAMILIA FLAQUER" 
1100 DATA "1. LOS PAISAJES CASTELLANOS”, 


Za 


LA 


”. 
Le 


"QUE INFLUENCIA SUFRIERON LOS PINTORES DEL PRIMER TERCIO DEL SIGLO (E. 


VICARIA", "3. TESTAMENTO DE ISABEL LA 1 


HECHOS HISTORICOS RELEVANTES", “3. Ll 


S AMBIENTES FOPULARES", "4. EL MOVIMIENTO DE MASAS" 


1110 DATA "1. DELACROIX", "2. DAVID Y SEGUIDORES","3. T. ROUSSEAU", "4. MÁNET" 
1120 DATA "1. ZULOAGA Y GISBERT", "2. MEIFREN Y GISBERT","3. REGOYOS Y ROSALES", 
4. RUSIMOL Y BERUETE" 

1130 DATA "1. FORTUNY Y SOROLLA", "2. F. MADRAZO Y ESPARTEL", "3. F. MADRAZO Y REI 
OYOS", "4. F. MADRAZO Y J. MADRAZO” 

1140 DATA "1, GIS5BERT","2. CASADO DEL. ALISAL", "3. ROSALES", "4. FORTUNY" 

1150 DATA "1. LUZ Y EL COLOR",“2. PRECISION HISTORICA", "3. MINUCIOSIDAD EN El D 
BUJO","4. EL PAISAJE CASTELLANO" 

1160 DATA "1. SOROYA Y ROSALES", "2. ZULOAGA Y RUSIGSOL”", "3. SOROLLA. Y MADRAZO", 
4. ZULOAGA Y SOROLLA” 

1170 DATA "1. LOS AMBIENTES “POPULARES”, "2. COLORIDO DE LAS PLAYAS VALENCIANAS", 


Su 
1180 DATA "1. 

"4. REALISMO" 
1190 DATA 3,1,2,412,1,1,4,2,3 


Modificaciones para otros equipos 


Son necesarias las modificaciones si- 
guientes: 


ZX-SPECTRUM 


50 (NO ES NECESARIA) - 

60 DIM A$(10,40): DIM B(40,30): DIM N(10) 
490 FOR I=1 TO 1000: NEXT I: CLS: GOTO 9999 
500 FOR F=1 TO 1000: NEXT F: CLS 
870 FOR F=1 TO 3000: NEXT F: CLS 


COMMODORE 


30 PRINT CHR$(47) 
490 FOR I=1 TO 2000: NEXT 1: PRINT CHR$(147): END 
500 FOR F=1 TO 2000: NEXT F: PRINT CHR$(147) 
870 FOR F=1 TO 5000: NEXT F: PRINT CHR$(147) 


PARA LOS MAS JOVENES 


Sistemas de ecuaciones lineales de 


dos ecuaciones con dos incógnitas 


Un sistema de ecuaciones lineales de 
dos ecuaciones con dos incógnitas puede con- 
siderarse del tipo: 


Ax+By=C 
Dx + Ey =F 


Para resolver este tipo de sistema es 
necesario llegar a determinar el par (x,y) co- 
mún que satisface ambas ecuaciones, o lo que 


REM 
REM xk 
REM xk 
REM xk 
REM xk 
REM 


10 
20 
22 
25 
30 
35 
40 
45 


ECUACIONES CON DOS INCOGNITAS 


PRINT TAB (10) q "== 
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LOS PAISAJES", 4. EL DETALLE HISTORICO” 
TENEBRISMO ITALIANO", "2. IMPRESIONISMO FRANCES", " 


SISTEMA DE ECUACIONES LINEALES DE DOS 


MORIR OIOIOOOOIOOOOIOIOIOIOIOIOIOIOIOIOOICDORE 
PRINT: PRINT TAB(10)3 "SISTEMA DE ECUACIONES" 


Je 


NEOCLASICASMO 


es lo mismo, determinar los números para los 
cuales se cumplen simultáneamente las dos 
ecuaciones del sistema. Para ello se van sim- 
plificando las ecuaciones de tal modo que se 
consigan ecuaciones lo más sencillas posibles 
hasta poder despejar las incógnitas. 


Métodos de resolución 


Existen varios métodos de resolución 
de sistemas de ecuaciones lineales de dos 
ecuaciones con dos incógnitas: 


1. Método de sustitución. Se despejará 
una de las incógnitas de una de las ecuacio- 
nes y se sustituye en la otra. 

2. Método de igualación. Despejamos 
de ambas ecuaciones la misma incógnita y se 
igualan las expresiones que resultan. 

3. Método de reducción. Se multiplica 
cada una de las dos ecuaciones por un núme- 
ro distinto de cero, de forma que posterior- 
mente al sumar o restar ambas ecuaciones des- 
aparezca una de las incógnitas. 

El programa que se plantea a continua- 
ción sirve para que puedas resolver el siste- 
ma de dos ecuaciones con dos incógnitas don- 
de los coeficientes pueden tomar cualquier 
valor que tú introduzcas. El ordenador te dará, 
posteriormente, el valor de las incógnitas X e 
Y que satisfacen ambas ecuaciones, 


PORRO ROO OOOO IOIOIOOOIOIODIOIOROIGIORoOK 
k 


k 
k 
* 
X 


APRENDER CON EL ORDENADOR : 


50 PRINTS 


PRINT TAB(5)3 "UN SISTEMA DE ECUACIONES LI" 


55 PRINT:PRINT "NEALES DE ECUACIONES CON DOS INCOG" 
60 PRINT:PRINT“NITAS PUEDE CONSIDERARSE DEL TIPO:" 


70 PRINT:PRINT TAB(10)3" A.x 
80 PRINT TAB(10)5" D.x + E.y = F" 
90 FOR I=1 TO 2000: NEXT 1 


+ Bhy= C" 


100 REM XXXXXk INTRODUCCION DE LOS COEFICIENTES AGGROOIDDRNAÓ: 


110 PRINT:PRINT: 
112 PRINT:PRINT 
115 FOR I=1 TO 3000:NEXT 1:CLS 
118 PRINT:PRINT:PRINT:PRINT 

120 PRINT< INPUT "la. 


130 PRINT: INPUT "ia. ECUACION. 


ECUACION. COEFICIENTE <A> : 
COEFICIENTE <B> : 
135 IF A=0 AND E=0 THEM CLS:PRINT:PRINT:PRINT:PRINT 


PRINT TABC3)5 "INTRODUCE EL VALOR DE CADA COE" 
"FICIENTE A MEDIDA QUE SE TE FIDA” 


"A 
"B 
"COEFICIENTES <A> Y <B> NO Y 


ALIDOS.":FOR 1=1 TO 1000: NEXT 1:CLS: GOTO 110 


140 FRINT: INPUT "la. ECUACION. COEFICIENTE <C> : "¡C 
150 PRINT: INPUT "2a. ECUACION. COEFICIENTE <D> : ";¿D 
de 160 PRINT: INPUT "2a. ECUACIOM. COEFICIENTE <E> 2: "3E 


165 IF D=0 AND E=0 THEN CLS:PRINT:PRINT: 5 PRINT:PRINT 
NEXT 1:CLS: 
ECUACION. COEFICIENTE <F>-: 


VALIDOS. "¿FOR I=1 TO 1000: 
170 PRINT: INPUT "Za. 
180 CLS 


"COEFICIENTES <¿D> Y <E> NO 


GOTO 110 


"E 


190 REM XX*XX FOSIBLE CORRECCION DE DATOS AGOROIOOIGIODIOODIOODONR 


200 PRINT:PRINT: 
210 FRINT:PRINT : PRINT A3" 
220 PRINT 2 PRINT Di" x + "jEz" 
230 PRINT:PRINT:PRINT: FRINT 
240 FRINT: INPUT M$ 


PRINT 


250 1F Má="S" OR M$="s" THEN GOTO 300 
AND Méx>"n”" THEN GOTO 230 


260 1F MESX>"N" 


"EL SISTEMA A RESOLVER ES: " 
Y 

Ys 

“¿TODOS LOS DATOS SON CORRECTOS (S/N)? " 


= "50 


270 PRINT.PRINT: PRINT "INTRODUCE LOS DATOS CORRECTAMENTE OTRA VEZ"¿FOR I=1 TO 2 


RESOLUCIÓN DEL SISTEMA DE DOS ECUACIONES x 


000: NEXT Il: CLS:GOTO 120 

300 REM OOO OOOO PIROIOIOIOIOIOROIOIO IO ORO ROOIOOIOROIOOIOIO OOOO 
302 REM X 

304 REM OOOO OOO OOOO OOOO OOOO OOOO OOOO OOOO 
303 CLS 

310 LET Y = (ARF-DxC)/(AXE-DXB) 


320 LET X = (C-EXY)/A 


IO REM AO ROIOIORIORRIORIORIORRIOIO OOOO OIOIOBIOOIOIOIDORIOIDONON 


340 REM *k 


PRESENTACION EN PANTALLA DE LOS RESULTADOS * 


BSO REM OOOO OOOO OOOO RIOIOOROIOOIOOOIOOIOIOIOIODDRR 


360 FPRINT 
370 FRINT:FRINT TAB(7)3"B8.x 


“FORMA GENERAL DEL SISTEMA DE DOS ECUACIONES: " 
+ B.y = C” 


380 PRINT:PRINT TAB(7);"C.x + D.y = F” 
390 PRINT:PRINT: PRINT " El SISTEMA A RESOLVER CON LOS COEFICIENTES DADOS ES: ” 


400 PRINT: PRINT TAB(7)3945" x + "¿B3" 
410 PRINT: PRINT TAB(7)3D53" X + "3E3” 
420 PRINT«PRINT : 
430 PRINT:* PRINT TAB(7)3" x = 

4490 PRINT: PRINT TAB(7)3" y = "¿Y 
450 FOR I=1 TO 10000: NEXT 1 


y = 


"a 


y = "5F 


PRINT " EL PAR (X, Y) QUE SATISFACE LAS DOS ECUACIONES ES:" 


455 REM XRAAARKA POSIBILIDAD DE CONTINUAR O SALIR DEL PROGRAMA AMOO kk 


2460 PRINT: IMPUT 


"DESEAS RESOLVER OTRO SISTEMA (5/M)> 


"3vs 


iia FIN DEL PROGRAMA 1!!! " 


470 IF V$="S" OR V$="s" THEN CLS: GOTO 50 
480 1F VEZ>"N" AND Vs$i2"n" THEN GOTO 460 
490 CLS: LOCATE 12,10: PRINT * 

500 FOR I=1 TO 2000: NEXT Il: CLS : END 


» 
. 


Modificaciones para otros equipos 


Son necesarias las modificaciones si- 
guientes: 


ZX-SPECTRUM 


90 FOR I=1 TO 1000:NEXT 1 
490 CLS: PRINT AT 12,10;" ¡¡¡ FIN DE PROGRAMA !!! ” 
500 FOR I=1 TO 1000:NEXT I: CLS: GOTO 9999 


COMMODORE 


38 PRINT CHR$(147) 

115 FOR I=1 TO 3000: NEXT I: PRINT CHR$(147) 

135 IF A=0 AND B=0 THEN PRINT CHR$(147): PRINT: 
PRINT: PRINT: PRINT “COEFICIENTES <A> Y <B> NO 
VALIDOS”: FOR l=1 TO 1000: NEXT I: PRINT CHR$(147): 
GOTO 110 


50 


165 IF D=O AND E=0 THEN PRINT CHR$(147): PRINT: 
PRINT: PRINT: PRINT *"COEFICIENTES <D> Y <E> NO 


VALIDOS": FOR I=1 TO 1000: NEXT I: PRINT CHR$(147): 
GOTO 110 


180 PRINT CHR$(147) 

270 PRINT:PRINT: PRINT "INTRODUCE LOS DATOS 
CORRECTAMENTE OTRA VEZ”: FOR I=1 TO 2000: NEXT 
I: PRINT CHR$(147): GOTO 120 

e IF V$="S" OR V$="s" THEN PRINT CHR$(147): GOTO 
490 PRINT CHR$(147): PRINT * ¡¡¡ FIN DE PROGRAMA !!! 


500 FOR I=1 TO 2000: NEXT I: PRINT CHR$(147): END 


AMSTRAD 


490 CLS: LOCATE 10,12: PRINT * ¡¡¡ FIN DE PROGRAMA 
mE 


PEQUEÑA HISTORIA DE LA INFORMATICA 


LAS CALCULADORAS 
DESDE EL SIGLO XIX 
HASTA NUESTROS DIAS 


A dijimos anteriormente 
que con Babbage práctica- 
mente murió la idea de má- 
quina universal, que pudie- 
ra ocuparse de cualquier 
cómputo automáticamente, 
siendo además capaz de lle- 
var a cabo algunas opera- 
ciones lógicas. ¡ 

Este hecho, sin embargo, no impidió 
que las simples máquinas de calcular, sin as- 
piraciones tan elevadas como la máquina de 
Babbage, sufrieran modificaciones muy im- 
portantes. La máquina de Pascal y Leibniz si- 
guieron mejorándose y, además, apareció un 
mercado floreciente, que iba creciendo día a 
día, casi hora por hora: el mercado del servi- 
cio a las empresas. 

La industrialización supuso un avance 
enorme para la humanidad (desde el punto de 
vista técnico), aunque en el plano humano fue- 
ra la causa inmediata de tanta miseria. Pero no 
tenemos intención de escribir David Copper- 
field (somos mucho más modestos). Sin embar- 
go, con el empuje de las nuevas industrias, las 
necesidades de simplificar la labor de oficina 
se iban imponiendo, y aunque la mano de obra 
fuera muy barata, la fiabilidad de las máqui- 
nas y su rapidez iban atrayendo cada vez más 
empresarios que se decidían a comprarlas. 

Uno de los aspectos que mejoró sustan- 
cialmente fue la presentación de los resulta- 
dos. Estos se daban impresos en papel. 

Las multiplicaciones y divisiones se ob- 
tenían desde las primeras máquinas de calcu- 
lar por sumas reiterativas. Este sistema era 
una lacra para alcanzar una velocidad de cálcu- 
lo aceptable, y además suponía multitud de 
problemas de arrastres, etc. En 1889 León Bo- 
llée, con sólo diecinueve años, inventa un nue- 
vo sistema de multiplicar muy ingenioso, que 
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multiplica directamente, con una tabla pre- 
configurada mediante una matriz de agujas. El 
sistema era muy práctico, y Leon prosiguió in- 
tentando mecanizar la división directa. Sin em- 
bargo, no llegó a resolver el problema, y lo 
abandonó para interesarse por los trabajos de 
su padre. 

Es interesante saber que Leon Bollée era 
uno de los miembros de una familia de inven- 
tores. Su padre, Amadeo Bollée, construyó un 
coche de vapor que hizo el recorrido París-Le 
Mans en 1873. Pero ahí no acabó todo. Una vez 
abandonado el motor a vapor, en los años si- 
guientes a la Primera Guerra Mundial, Ama- 
deo (hijo) y su hermano León se hicieron fa- 
mosos mejorando los motores de explosión. 
Además, fueron los fundadores del circuito de 
Le Mans. 

El prototipo de la máquina de Bollee se 
quedó en poco más que eso, un prototipo, ya 
que sólo se fabricaron tres modelos y apenas 
si se vendieron. Sin embargo, cinco años más 
tarde O. Steiger creó una nueva máquina, ba- 
sada esencialmente en la de Bollée, y se hizo 
rico. En sólo tres años vendió más de mil má- 
quinas. El nombre de la máquina era muy gra- 
cioso, se llamaba el «Millonario», y ha sido pro- 
bablemente la máquina de calcular más popu- 
lar de todos los tiempos. Sin embargo, esta má- 
quina, aunque multiplicaba directamente, no 
disponía de división directa. Copias y modifi- 
caciones de este mismo sistema tuvieron el 
mismo éxito comercial, y Egli, de Zurich, ven- 
dió más de 5.000 máquinas (eso sí, en cuaren- 
ta años). 

El «Millonario» fue pensado por su crea- 
dor para que resolviera fundamentalmente 
problemas comerciales, cambios de moneda, 
tipos de interés, etc. Sin embargo, pasados 
unos años, se utilizó también mucho para labo- 
res científicas. Como siempre, la Astronomía 


y la Meteorología, ciencias que manejan mu- 
chos datos, fueron las disciplinas que más má- 
quinas de este tipo absorbieron. El descubri- 
miento del planeta Plutón se basó en múltiples 
cálculos e investigaciones, asistidas por la pe- 
queña máquina tan popular en su época. 

La división directa se consigue al otro 
lado del mar, en los Estados Unidos. El diseño 
es de J. R. Monroe, que, como indicamos ante- 
riormente, creó su propia compañía, que pros- 
peró enormemente, existiendo en nuestros 
días. 

Sin embargo, nosotros consideramos 
que el avance mayor corresponde directa- 
mente a la presentación de los resultados. En 
las primeras máquinas éstos se leían directa- 
mente de pequeñas ventanas, y sólo había po- 
sibilidad de mantenerlos sin que se perdiesen 
escribiéndolos a mano. Sabemos que Babbage 
había diseñado un sistema de almacenamien- 
to de resultados, y otro de presentación im- 
presa, pero recordamos al lector que las mi- 
ras de Babbage eran muchísimo más altas que 
las de los pequeños fabricantes de calculado- 
ras, desde la propia raíz del problema. Esa fue 
quizá la razón de que nunca llegaran a llevar 
a la práctica sus ideas. Sin embargo, las cal- 
culadoras comenzaron a sacar resultados im- 
presos hacia 1875, aunque realmente la prime- 
ra máquina que apareció con la posibilidad de 
presentar resultados en papel no fue una sim- 
ple calculadora, era realmente una máquina 
registradora (una caja para el dinero capaz de 
realizar las operaciones elementales). Su crea- 
dor fue un francés, Pottin, pero no está muy 
claro si su diseño era original o una copia de 
algún otro diseño anterior, modificado, 

El mercado de las máquinas de calcu- 
lar cambió sustancialmente. Ya no eran máqui- 
naS-para realizar trabajos aburridos y mecáni- 
cos, ni científicos. Se trataba de máquinas para 
acelerar y activar las operaciones comercia- 
les. Y naturalmente, la enseña pasó a un país 
que estaba creciendo mucho más rápidamen- 
te que la vieja Europa, los Estados Unidos de 
Norteamérica. En este joven país, Felt, un téc- 
nico muy pragmático, creó una máquina a la 
que llamó «contómetro». Tuvo éxito, ya que ha- 
bía estudiado muy cuidadosamente las nece- 
sidades de los usuarios, procurando adaptar- 
se y satisfacerles en lo posible. Poco tiempo 
después, Bourroughs creó una máquina muy 
completa, e intentó comercializarla desde el 
negocio de su padre, la American Arithmome- 
ter Company. (Bourroughs era muy aficionado 
a la mecánica, su padre era mecánico, y él ha- 
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bía nacido y se había criado en ese ambien- 
te.) Sin embargo, la máquina que diseñó era 
tan complicada que prácticamente había que 
llamarle cada una de las veces para que ex- 
plicara a cada usuario cómo hacer funcionar 
su máquina. El intento fue un fracaso, pero 
Bourroughs no se desanimó. Tenía fe en sí mis- 
mo, y no era soberbio. Aceptó las críticas. Sin 
embargo, podemos imaginar el mal humor que 
tendría cuando, aceptando su fracaso, y que 
las máquinas eran invendibles, se dirigió al al- 
macén de su padre y, sin mediar palabra, tiró 
por la ventana unas cincuenta máquinas que 
no se habían vendido hasta el momento. Bravo 
chico. El asunto no quedó ahí, y Bourroughs se 
quitó la espina, diseñando una máquina de ma- 
nejo mucho más sencillo que tuvo un enorme 
éxito. Su compañía (con otro nombre, para nos- 
otros casi tan cómplicado como el que eligió 
su padre) permanece hasta nuestros días, y es 
uno de los fabricantes de ordenadores más im- 
portantes. La máquina se llamaba curiosamen- 
te «Máquina de sumar y listar». 

Bourroughs puede anotar en su haber 
otra modificación importante, que sigue utili- 
zándose en nuestros días (aunque mejorada). 
En los últimos modelos de registradoras 
Bourroughs, éste había incorporado un siste- 
ma de grabación sobre papel de los datos de 
entrada. Esta innovación puede parecer tri- 
vial, pero no lo es en absoluto, ya que de este 
modo se pueden solventar rápidamente posi- 
bles errores, quedando además constancia de 
todas las operaciones completas, para poste- 
riores manipulaciones o verificaciones. 

Los progresos de las máquinas de calcu- 
lar fueron creciendo y las máquinas mejo- 


«Caja de macarrones». 


rando paulatinamente, hasta aproximadamen- 
te la Primera Guerra Mundial. A partir de este 
momento, ya conseguidos bastantes objetivos, 
los puntos de mira comienzan a cambiar muy 
lentamente. Sin embargo, estas máquinas sir- 
vieron para tener resueltos muchos pequeños 
problemas que surgieron en los primeros or- 
denadores, y, por tanto, ayudaron considera- 
blemente a su desarrollo. Uno de estos peque- 
ños problemas que quedaron resueltos fue la 
introducción de órdenes y datos mediante tar- 
jetas perforadas, y otro la presentación de re- 
sultados impresos, como constancia escrita de 
la información obtenida. Además, el mercado 
se abrió, y era propicio a nuevas máquinas 
más potentes y eficaces que las sencillas cal- 
culadoras-registradoras, 

En cualquier caso, y a pesar de los 
enormes avances, apenas si se hubiera llega- 
do mucho más lejos. Los engranajes son un sis- 
tema muy burdo de tratar la información. Con 
el dominio de la electricidad, y más tarde de 
la electrónica, se dio el salto trascendental 
para llegar a los ordenadores de hoy. La ener- 
gía eléctrica es mucho más fácilmente cuanti- 
ficable que cualquier otro tipo de energía. 

La primera caja registradora sabemos 
que es americana. Su creador, James Ritty, la 
diseñó «adaptando» a las nuevas necesidades 
un contador de las revoluciones de la hélice 
de un barco. La máquina realizaba las opera- 
ciones básicas, pero no sumaba totales, crean- 
do subtotales parciales. Esta operación se in- 
cluyó en modelos posteriores, a los que se 
adaptó también una caja para guardar el di- 
nero, y una pequeña campanilla o timbre que 
sonaba cuando se abría el cajón del dinero. En 
realidad, la empresa de Rity puede conside- 
rarse el embrión del que surgió la que luego 
sería National Cash Register (NCR). En 1882 
Ritty vendió su compañía a Jacob Eckert (en 
otro momento hablaremos de otro Eckert, per- 
sonaje muy importante en la historia ¡de la In- 
formática). Finalmente, John Patterson compró 
la compañía a Eckert, cambiándole el nombre 
a National Cash Register (NCR), compañía que 
aún subsiste, siendo uno de las más importan- 
tes fabricantes de ordenadores. 

No debemos olvidarnos de uno de los 
primeros españoles, que aparecen en nuestra 
historia, desde el medieval Raimundo Lulio, 
Ramón Verea diseñó una pequeña máquina 
que realizaba las operaciones elementales, Su 
éxito no fue demasiado grande, y sobre todo 
poco después apareció el «Millonario», que 
arrolló, absorbiendo la mayor parte del mer- 
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¿Sabía usted que... 


¿Se ha parado usted a pensar en que, debido 
al uso indiscriminado de las calculadoras, los niños 
actuales pueden olvidar cómo se suma o se resta, y 
al mismo tiempo qué estan haciendo cuando suman 
o restan una cantidad? 

Es cierto, con frecuencia, al calcular el precio 
de un artículo rebajado un diez o un veinticinco por 
ciento, el empleado saca su máquina de calcular 
para obtener la cifra exacta. Sin embargo, el cálculo 
mental es importante, es una disciplina útil para sa* 
ber «dónde se encuentra uno» o detectar posibles 
errores en la manipulación de la calculadora. No 
todo el mundo tiene la misma capacidad para calcu- 
lar mentalmente, aunque es una cualidad, como mu- 
chas otras, educable. Una de las personas que se han 
hecho famosas por este tipo de habilidad es el se- 
ñor William Klein, del Centro Europeo para la Inves- 
tigación Nuclear (CERN), de Ginebra. Este señor era 
capaz de evaluar fórmulas matemáticas complejas, 
siendo utilizado en el centro para ayudar a analistas 
y programadores a optimizar los programas. El se- 
for Klein era capaz de realizar mentalmente multi- 
plicaciones de cuatro cifras con una rapidez increí- 
ble. Conoce los logaritmos de los números hasta 150 
con catorce decimales, y puede realizar muchos 
otros cálculos, como, por ejemplo, qué día de la se- 
mana fue determinada fecha histórica. 

Aunque era hijo de médico, y comenzó a su 
vez la carrera de medicina, a raíz de la Guerra Mun- 
dial Klein perdió su herencia y se puso a trabajar en 
circos, teatros y en la calle, mostrando sus excepcio- 
nales cualidades. Tras escarceos en empleos esta- 
bles como calculista, siempre terminaba en la calle 
o en un circo cualquiera. En cierto momento fue des- 
cubierto por el director del CERN. Klein le pidió tra- 
bajo en el organismo, y el director accedió a tomar-: 
lo a prueba. El señor Klein resultó muy útil en el Cen- 
tro de Proceso de Datos, aprendió programación, y 
era capaz de evaluar pedazos completos de progra- 
ma. Terminaremos por decir que el señor Kleih apa- 
rece en el Libro de Records Guiness varias veces por 
realizar cálculos rapidísimos, mejorándose a sí mis- 
mo varias veces. 


cado de este tipo de máquinas. (Seamos lea- 
les e indiquemos que Ramón Verea, pese a ser 
español, estaba afincado en Nueva York.) 

El siguiente avance sustancial en la téc- 
nica se debió a otro americano, Herman Holle- 
rith. Sin embargo, hemos considerado más 


Calculadora de Bourroughs. 


oportuno hablar de él en el próximo número, 
ya que apenas si tendríamos espacio en éste. 
Cerremos, pues, el tema de las calculadoras, 
que a partir de ese momento han seguido un 
camino distinto al de los ordenadores, aunque 
siempre adoptando aquellas técnicas y siste- 
mas que podían adaptarse al tipo de trabajo 
que realizaban. Desde estas antiguas calcula- 
doras hasta las modernas pequeñísimas, que 
realizan multitud de operaciones complicadas, 
hay, tanta distancia como la existente entre los 
rodillos para mover piedras al coche de nues- 
tros días. Las calculadoras primeras fueron ab- 
solutamente mecánicas. Algo más 'tarde fue- 
ron electro-mecánicas, y finalmente han adop- 
tado la tecnología integrada que les ha permi- 
tido tener un tamaño muy pequeño (desban- 
cando totalmente a la regla de cálculo; tan uti- 
lizada hace veinte años, que su manejo se es- 
tudiaba a conciencia en las escuelas técnicas). 


Además, su precio se ha ido reduciendo tanto 
que las simples calculadoras que realizaban 
log mismos cálculos que las primeras de Ohd- 
ner o Bollée pueden comprarse por menos de 
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dos mil pesetas. Las científicas siguen tenien- 
do precios algo más altos, pero también irri- 
sorios, ya que las más complejas, que eran 
programables, han sido también desbancadas 
por los pequeños ordenadores personales, 
que, aunque es cierto que precisan de un mo- 
nitor o televisor, tienen tamaños bastante pe- 
queños y realizan más tipos de tareas. Ya he- 
mos hablado en otro momento de la caída de 
precios de estas máquinas. No pensamos vol- 
ver sobre ello, pero sí recordar que el mejor 
momento de las calculadoras fue al comienzo 
de los años setenta, y que para el año 1975 ha- 
bía más de treinta y cinco millones de calcu- 
ladoras funcionando sólo en los Estados Uni- 
dos. Con la aparición del ordenador domésti- 
co, el interés del usurio ha pasado de la cal- 
culadora al ordenador. Sin embargo, hemos 
de preguntarnos, ¿realmente es importante 
para cada uno de los treinta y cinco millones 
de americanos que disponían de calculadora 
(con más funciones que las elementales) cono- 
cer la raíz cuadrada de un número cualquie- 
ra? Al menos, el ordenador hace muchas co- 
sas más. 
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Lenguajes de configuración 


OMO continuación de nues- 
tro comentario sobre el pro- 
ceso en paralelo para los 
programas en tiempo real 
que manejan gran cantidad 
de datos, vamos a ver más 
concretamente las caracte- 
rísticas básicas que han de 
tener los «lenguajes de configuración de sis- 
temas» utilizados en el diseño y distribución 
de tareas para su proceso en paralelo. 

Una de las funciones que deben cum- 
plir las configuraciones es la de identificar 
módulos a partir de los cuales se construye el 
programa. Para ayudar al programador a abs- 
traerse de los aspectos funcionales del módu- 
lo que haya de programar para la implemen- 


tación del algoritmo, dentro de una configura- . 


ción determinada se debe especificar las ca- 
racterísticas del interfaz de cada módulo. Un 
interfaz define el tipo de datos y la clase de ac- 
ciones que deben tomarse en un módulo, y to- 
das las comunicaciones deben realizarse a tra- 
vés de este interfaz. El interfaz debe se la úni- 
ca información necesaria a nivel de configu- 
ración para utilizar el módulo. Aunque el in- 
terfaz de un módulo se especifica normalmen- 
te dentro del módulo a través de ciertas listas 
de datos a importar y exportar, puede repe- 
tirse dentro de la configuración, para mejorar 
la legibilidad de ésta. Con idéntico fin de fa- 
cilitar la tarea de programación, se deben po- 
der crear varios ejemplares del mismo mó- 
dulo. En este caso, cada gránulo debe tener 
asignado un nombre único que lo identifique 
dentro de la configuración. 

Los programas formados por numero- 
sos componentes (que realizan cada uno un 
proceso) son mucho más fáciles de compren- 
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der y mantener si los subgrupos de gránulos 
pueden ser considerados globalmente como 
gránulos individuales. Los módulos se pueden 
combinar hábilmente anidándolos. Cada con- 
figuración anidada define un programa para- 
lelo y, por tanto, se puede considerar como un 
simple gránulo, con un interfaz bien definido 
a nivel de la configuración. De nuevo, este in- 
terfaz es la única información lógica necesaria 
a nivel de la configuración global para utilizar 
esta estructura anidada. Esta característica 
también reduce simplemente a unas especifi 
caciones de configuración los cambios que 
hay que realizar en los casos en que los grá- 
nulos componentes se intercalen, fusionen o 
dividan; para mejorar las características del 
programa paralelo. 

Otra característica fundamental muy 
útil que dirige al programador hacia la cons 
trucción modular de los programas paralelos 
es que los gránulos se puedan compilar y pro: 
bar independientemente. Es importante que 
hagamos notar que no es lo mismo compilar 
de forma independiente que de forma separa: 
da. Esta última opción obliga a llevar un orden 
de compilación implícito entre los módulos, ya 
que la compilación de un módulo puede neco- 
sitar información de otros módulos, El primer 
tipo permite la compilación y comprobación 
de los módulos en cualquier orden, y las com 
probaciones entre las fronteras de los módu 
los se establecen durante la fase de configura 
ción. 

Como ya hemos indicado que la única 
información necesaria para combinar módulos 
es su interfaz, no existe razón alguna por la 
que todos los módulos individuales deban on 
tar escritos en el mismo lenguaje de progra: 
mación. Así, los módulos componentes de mu 
chos programas en tiempo real están escritos 
en varios lenguajes, cada uno en el lenguaje 
de programación más útil (ón el que pueden 
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resultar más funcionales). Por ejemplo, los grá- 
nulos de planificación podrían estar escritos 
en LISP, mientras que los gránulos de senso- 
res e interfaces de actuación externa pueden 
estar escritos en lenguajes procedurales, 
como, por ejemplo, C, o PASCAL. El configu- 
rador debe proveer un interfaz uniforme para 
varios lenguajes de programación, de forma 
que los programadores tengan libertad abso- 
luta para seleccionar el lenguaje de progra- 
mación que pueden utilizar para cada uno de 
los módulos. 

Veamos cómo puede estructurarse un 
programa paralelo formado por numerosos 
gránulos. Para ejecutar un programa paralelo, 
naturalmente se deberán crear los gránulos 
que conforman dicho programa. Estos gránu- 
los se pueden crear de dos formas distintas: 
de forma estática, y así su número, tipo e iden- 
tificación se conocerán y fijarán desde el mis- 
mo momento de su configuración. O bien los 
gránulos se pueden crear también de forma 
dinámica, según vayan produciéndose las ne- 
cesidades durante la ejecución. La creación 
de gránulos dinámicos permite gran flexibili- 
dad en la construcción de los programas pa- 
ralelos, especialmente cuando el número de 
gránulos requeridos depende de las entradas 
al programa. El inconveniente en este caso es 
que la estructura general del programa se 
hace difícil de comprender, ya que las instruc- 
ciones de creación de cada gránulo quedan 
ocultas dentro del código del módulo. Tam- 
bién obstaculiza el análisis del flujo estático 
necesario para la evaluación del rendimiento 
y detección de los estancamientos o puntos 
muertos, ya que el número de gránulos acti- 
vos no se puede determinar estadísticamente. 
Más aún, el uso.indiscriminado de estas carac- 
terísticas de creación dinámica pueden hacer 
que la creación de un gránulo se posponga de 
forma incontrolada, debido a tener que espe- 
rar para obtener un recurso de hardware. Por 
todas estas razones es imposible predecir el 
comportamiento de un programa en tiempo 
real. En los casos en los que sea necesario pre- 
decir el rendimiento bajo las «peores condi- 
ciones de funcionamiento, será necesario de- 
clarar todos los gránulos desde el momento de 
la configuración». 

Estudiemos ahora topologías de una red 
de gránulos, 

Una configuración se puede considerar 
como una especie de «red local» formada por 
gránulos. Los nodos de esta red serán los grá- 
nulos componentes, y los arcos entre todos re- 
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presentan redes de comunicación, Las relacio- 
nes entre los módulos desde el punto de vista 
de comunicaciones, de sincronización, etc., se 
denominan «topología de la red de módulos», 
Dentro de este contexto, en las especificacio- 
nes de dicha topología, deben considerarse 
dos aspectos importantes para las comunica- 
ciones, el mecanismo de asignación de nom- 
bre, llamada y la posibilidad de cambiar di- 
cha topología durante la ejecución. 

Los distintos módulos deben ser capa- 
ces de llamarse (durante las comunicaciones 
a través de los canales) mediante nombres, Di- 
chos nombres pueden ser directos o basados 
en nombres globales o locales. Los nombres 
directos pueden ser de «una vía» o de «dos 
vías». Los nombres de una vía permiten que el 
emisor pueda nombrar (llamar) al receptor, o 
viceversa. Por el contrario, si es de dos vías, 
tanto receptor como emisor se podrán nom- 
brar uno a otro. La nominación llamada direc- 
ta elimina la independencia de interconexión 
entre gránulos de programación individuales. 
En particular, no es útil para desarrollos de 
programas muy grandes desde el final hacia 
arriba, cuando los módulos no se conocen has- 
ta el momento de la configuración. La inde- 
pendencia en la interconexión es un factor im- 
portante para desarrollar módulos de progra- 
mas que sean reutilizables. La utilización de 
nombres globales significa que los gránulos se 
comunican utilizando un único nombre que es 
válido (a nivel global) para todos los gránulos, 
ya sean éstos «buzones» (módulos de almace- 
namiento de la información) compartidos, 
puertas de comunicación o procedimientos re- 
motos. Los nombres globales reducen la inde- 
pendencia en las interconexiones, ya que és- 
tos nombres únicos están compartidos entre 
los gránulos componentes. Por ejemplo, no es 
posible crear varios ejemplares del mismo 
módulo de forma que cada uno de ellos se co- 
munique con gránulos distintos. 

Los nombres locales permiten libertad 
en las interconexiones separando las especifi- 
caciones sobre la topología de la red, de la 
programación de los gránulos componentes. 
Con este sistema, cada gránulo utiliza para su 
comunicación puertas definidas localmente, y 
de este modo ya es posible utilizar los mismos 
nombres de puerta dentro de gránulos dife- 
rentes. Para enviar o recibir un mensaje a tra- 
vés de una puerta local, ésta debe estar co- 
nectada a puertas locales de otros gránulos. 
Las uniones entre puertas se pueden estable- 
cer en el momento de la configuración, o en 


el de la ejecución. Si se hace en el momento 
de la configuración, las uniones entre puertas 
estarán definidas dentro de la configuracion, 
y la forma en que estén conectadas las puer- 
tas no afectará a los gránulos individuales. Mu- 
chos lenguajes configuradores, como (por 
ejemplo, el PCL, NESTLA, CONIC o DICON) so- 
portan este método para establecer las unio- 
nes. Sí se hace, por el contrario, durante el 
momento de la ejecución, las capacidades 
para enviar mensajes entre gránulos se asig- 
nan a variables locales durante la ejecución. 
Para el envío de mensajes sólo se pueden uti- 
lizar variables «de comunicación» y con carac- 
terísticas adecuadas. Este procedimiento se 
ha visto que es útil en la construcción de sis- 
temas operativos. El sistema MODEL soporta 
ambos métodos. 


Volvamos a las dos posibles estructura- 
ciones de las topologías de que hablamos an- 
teriormente. 


La topología de la red se puede estable- 
cer de forma estática o dinámica. Si se hace 
por el segundo sistema, significa que las inter- 
conexiones entre gránulos se pueden cambiar 
durante la ejecución del programa, es decir, 
un gránulo podrá comunicarse con distintos 
gránulos en momentos diferentes, utilizando 
los mismos comandos de comunicación. La to- 
pología estática no puede alterarse una vez es- 
tablecida, de forma que el destino de cada co- 
mando de comunicación ha sido ya fijado para 
toda la ejecución completa, Es importante ha- 
cer notar que la creación de gránulos dinámi- 
cos o estáticos no da en absoluto como resul- 
tado el establecimiento de redes topológicas 
estáticas o dinámicas (o al contrario). Por 
ejemplo, se pueden crear nuevos gránulos en 
el momento de la ejecución, pero fijando sus 
interconexiones en el momento de compilar 
(esto puede hacerse en lenguajes como PCL o 
Ada). Del mismo modo, también se pueden 
crear todos los gránulos en el momento de la 
compilación, y cambiar las interconexiones, si 
las posibilidades de comunicación se pueden 
modificar mediante mensajes, como en De- 
mos, MODEL, o NIL. 


Existen distintos métodos de soportar 
topologías dinámicas. El más común es permi- 
tir que los comandos de comunicación conten- 
gan una variable que denota su destino, y 
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cuyo valor puede cambiarse en el momento 
de la ejecución. El inconveniente que tiene es 
que las actividades que controlan la topología 
de la red están entremezcladas con las de los 
gránulos individuales. Esa característica hace 
que los programas sean difíciles de compren- 
der, ya que las actividades de creación de los 
gránulos no están disponibles para su examinador 
por alguien que intente comprender el pro- 
grama. Existen, sin embargo, métodos que so- 
portan tipologías dinámicas a nivel de la con- 
figuración. Por ejemplo, en CSL y en NESTLA 
la configuración incluye una secuencia de ins- 
trucciones ejecutables que controlan la topo- 
logía de la red, según va avanzando la ejecu- 
ción del programa. Con este sistema, la topo- 
logía de gránulos se va redefiniendo dinámi- 
camente, dependiendo de cuál sea la parte de 
la configuración que se está ejecutando en ese 
momento. En CONIC, la configuración (inclu- 
yendo las especificaciones de topología de los 
gránulos) se pueden sustituir dinámicamente 
por la nueva configuración. La utilidad consis- 
te principalmente en que la topología de los 
gránulos se pueden ir ajustando a entornos 
que cambian dinámicamente, incluso en el 
caso de que los cambios no se conozcan por 
anticipado (cuando se construyan inicialmen- 
te las configuraciones). 

Las topologías estáticas tienen dos limi- 
taciones fundamentales. En primer lugar, im- 
piden que un gránulo se comunique con aque- 
llos gránulos que no se conocen en el momen- 
to de la compilación, limitando de este modo 
la posibilidad de funcionamiento del progra- 
ma en un entorno que cambia dinámicamen- 
te. En segundo lugar, si en un momento dado 
un gránulo necesita comunicarse con otro, la 
previsión de comunicación debe ir incluida 
dentro de la propia topología. La capacidad de 
cambiar la topología de la red dinámicamente 
es muy importante en algunas aplicaciones, 
como, por ejemplo, en ficheros de envíos por 
correo, que están vigentes por mucho tiempo, 
pero que suelen cambiar cada cierto tiempo. 
Sin embargo, existen muchas otras aplicacio- 
nes, que no necesitan estas particularidades. 
La topología dinámica realiza análisis del flujo 
estático, para detectar posibles puntos muer- 
tos, y también análisis de rendimientos, prác- 
ticamente inviables en programas que no sean 
absolutamente triviales. 


TERMINOLOGIA 


GLOSARIO DE TERMINOS 
UTILIZADOS EN EL PROCESO 
PARALELO 


Bloqueante. (Ver Primitivas.) 


Configurador. Lenguaje en el que se diseña 
el conjunto del proceso, y que prepara las 
diferentes tareas, define la separación de 
módulos los interfaces, etc. Existen numero- 
sos lenguajes utilizables con esta finalidad. 
Entre ellos los más usuales son PCL, NEST- 
LA, CONIC, DICON, MODEL... 


Emisión (de mensajes). (Ver Mensajes.) 


Interfaz. Dispositivo o programa que sirve de 
enlace entre dos procesos o equipos. En el 
proceso paralelo son básicos los «interfaces» 
que realizan la comunicación entre los dife- 

entes procesos o gránulos que se están 
procesando en paralelo. Una de las claves 
del éxito de la programación de procesos 
en paralelo es el adecuado diseño de estos 
interfaces. 


Mensajes. Bloques de información enviados 
de un gránulo a otro para comunicación y 
transmisión de resultados parciales, duran- 
te el proceso general. 


No bloqueante. (Ver Primitivas.) 


Nombre. Identificador de los diferentes mó- 
dulos o gránulos utilizados por los restantes 
gránulos o módulos en el envío de mensa- 
jes. Los nombres pueden ser directos o in- 
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directos; y los primeros «de una vía» o «de 
dos vías», 


Primitivas. Se llaman así a los comandos uti- 


lizados en el proceso paralelo para la comu- 
nicación de unos gránulos con otros. Las pri- 
mitivas pueden ser «bloqueantes» o «no blo- 
queantes», dependiendo de que paralicen 
la ejecución del gránulo receptor o no, 
cuando llegan a su destino. Pueden ser tam- 
bién explícitas o implícitas, dependiendo 
del modo en que se envían. Por último, en 
función de la acción que realizan (enviar 
mensajes, recibirlos, devolver respuestas, 
etcétera) se les denomina emisoras o recep- 
toras. 


Remota. Llamada. Procedimiento de comuni- 


cación entre gránulos mediante el cual el 
módulo que envía el mensaje espera hasta 
recibir una respuesta explícita del receptor. 


Topología. En proceso paralelo, es la distri- 


bución e interrelación de los gránulos den- 
tro del sistema total diseñado. Los elemen- 
tos que definen la topología del sistema son 
la estructura de estos gránulos y las comu- 
nicaciones que entre ellos se establecen. La 
topología puede ser estática o dinámica, de- 
pendiendo de que las interrelaciones y co- 
municaciones entre los módulos se predefi- 
nan en la etapa de diseño y compilación, o 
se vayan estableciendo por parte del pro- 
pio sistema, a medida que se va ejecutando 


VOCABULARIO DE INFORMATICA 


Jerarquía. Orden de precedencia. Véase 
Cada uno de los tipos de jerarquía. 


Jerarquía de datos. Estructuración de datos 
en conjuntos, subconjuntos, etc., de forma 
que su organización básica sea jerárquica. 
Esta estructuración puede encontrarse en 
las especificaciones lógicas (formales), en 
las físicas (estructura real de almacena- 
miento de los datos), o en ambas. 


Jerarquía de funciones. Secuencia de con- 
juntos de funciones que tienen la propiedad 
de que cada uno es igual o está contenido 
en el siguiente, y así sucesivamente. 

Las jerarquías de las funciones recursi- 
vas primitivas pueden definirse haciendo 
que una función cualquiera represente las 
funciones que pueden computarse por pro- 
gramas que contienen bucles anidados. Si 
la función es Fn, podrá tener hasta n bucles 
anidados. Por tanto, Fn< =Fn+1 para n ma- 
yor que O. La unión de todos estos conjun- 
tos comprende todas las funciones recursi- 
vas primitivas, y únicamente esas funciones. 
(Véase jerarquía de Gregorczyk.) Bertrand 
Russell inventó la teoría de los tipos que es- 
tablece que las funciones de un determina- 
do nivel sólo pueden definirse en términos 
de niveles inferiores. 


Jerárquica, estructura... de la memoria. 
Sistema de organización de la memoria en 
diferentes niveles. Se considera la memoria 
(las áreas de almacenamiento de datos del 
ordenador) organizadas de un modo jerár- 
quico, de tal forma que la memoria más rá- 
pida y/o accesible (registros) sea la prime- 
ra en ser accedida para, posteriormente y 
subiendo en los diferentes niveles con tiem- 
pos de respuesta mayores, pero con coste 
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por unidad de almacenamiento menores. Se 
suelen considerar niveles sucesivos en la 
organización jerárquica de la memoria: los 
registros de procesos, los grupos de pala- 
bras de las memorias intermedias, la memo- 
ria principal, las páginas de memoria alma- 
cenadas en los dispositivos de almacena- 
miento externo auxiliar y los ficheros com- 
pletos en estos dispositivos. 


Jerárquico, direccionamiento. Método 


para identificar la posición de cada uno de 
los componentes de una red que utiliza un 
sistema jerárquico, es decir, las direcciones 
se agrupan para reflejar las relaciones en- 
tre las distintas entidades. 


Jerárquico, sistema de bases de datos. 


Sistema de gestión de bases de datos en el 
que la organización de la información es je- 
rárquica, es decir, cada registro pertenece 
a otro. 


Jerárquico, sistema de comunicación. 


Estructura de comunicaciones formada por 
varios niveles. Cada nivel superior cubre un 
área más general de operación que el nivel 
inmediato inferior, 


Jitter. Término inglés para indicar perturba- 


ciones, o pequeñas variaciones rápidas de 
la forma de la onda debidas a multitud de 
causas, entre ellas fluctuaciones de la ten- 
sión de alimentación, inestabilidad del sis- 
tema de control, etc. 


Job (trabajo, tarea). Término inglés que in- 


dica un grupo de tareas que debe realizar 
el ordenador y que forman una unidad. Por 
extensión, puede significar todos los pro- 
gramas, módulos cargables, archivos e ins- 
trucciones que necesita el sistema operativo. 


VOCABULARIO DE INFORMATICA 


Job control, instrucción de. Instrucción 
perteneciente a un job y que se utiliza para 
identificar el job o para describir al sistema 
oporativo sus requerimientos funcionales. 


Job control, flujo del. Término inglés para 
designar el control de flujo de trabajos, es 
decir, el orden de ejecución de las distintas 
lareas por parte del ordenador. Este orden 
tiene como objetivo la utilización óptima de 
los recursos. 


Job management. Término inglés para indi- 
car la gestión de las distintas tareas que 
debe realizar el ordenador. Conjunto de 
procedimientos y normas que constituyen 
la base para la ejecución de los trabajos que 
debe realizar el ordenador. 


Job processing control. Términos ingleses 
usados para indicar una parte del progra- 
ma de control que se ocupa de iniciar las 
distintas operaciones, asignar recursos y 
pasar a la siguiente tarea. 


Job step. Unidad de trabajo, considerado 
desde el punto de vista de usuario, no de má- 
quina. Cada una de las tareas sucesivas en 
que se puede dividir un trabajo, y que el 
«flujo de job control» maneja y gobierna. 


Joystick. Dispositivo periférico muy versátil 
parecido a las palancas de manejo de los 
aviones. Permite introducir al ordenador las 
coordenadas de posición de forma continua, 
rápida y cómoda. 


Jump. Término inglés que significa salto. Las 
instrucciones salto provocan el paso de una 
instrucción a otra especificada, que no tie- 
ne por qué ser consecutiva. Desviación de 
la secuencia normal de ejecución. 


Justificar. Término derivado del inglés «jus- 
tify», que significa alinear unos caracteres 
dentro de unos márgenes dados. Puede tra- 
tarse de un único margen, por la derecha o 
por la izquierda, quedando el otro extremo 
del campo sin rellenar completamente, en 
el caso de que el campo a rellenar sea ma- 
yor que los datos que se «justifican» o ali- 
nean en él. Por extensión, puede referirse a 
un registro, cuyo dígito más o menos signi- 
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ficativo se encuentre en una posición espe- 
cífica de dicho registro. 


Karnaugh, mapas de. En lógica, diagrama 
de funciones y variables que solapa rectán- 
gulos, etc., de forma que cada intersección 
de las figuras superpuestas representa una 
única combinación de variables-lógicas, y 
de tal forma que quedan evidentes las in- 
tersecciones de todas las posibles combina- 
ciones. Se utiliza para la representación de 
las funciones lógicas (especialmente con 
vistas a su simplificación). 


Kbit. Unidad de medida del tamaño de la me- 
moria (kbit) equivalente a 1024 bits (dos ele- 
vado a diez). 


Kbyte. Indicador de la medida de la memo- 
ria equivalente a 1024 bytes. 


Key. Término inglés que puede referirse tan- 
to a una tecla del teclado de su ordenador 
como a una clave, o leyenda de un dibujo, 
o a otra clave cualquiera de acceso o con- 
trol (palabra clave, etc.). 


Keyboard. (Véase Teclado.) 


Key in. Término inglés que designa una ope- 
ración por la que se introducen los datos al 
ordenador de forma manual a través del te- 
clado. 


Keypad. Término inglés que suele indicar un 
teclado numérico. 


Keyword. Término inglés que significa pala- 
bra clave. Véase, por tanto, dicha referen- 
cia. 


Keyword, parameter. Parámetro de pala- 
bra clave. Parámetro que se identifica por 
un nombre o palabra clave en lugar de ha- 
cerlo por su posición en la lista de paráme- 
tros. : 


Kilo. Prefijo que multiplica el valor que le si- 
gue por 1.000. En informática, el término se 
multiplica por 1.024, es decir, 2 elevado a 10. 


Knowledge engineering. Término inglés 
que significa ingeniería del conocimiento. 
(Véase Sistema experto.) 


